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TV BASIC az Ötletben 


Olvasóink tudják, hogy az Ötlet rendszeresen figyelemmel kíséri a számítástechnika hazai és 
nemzetközi térhódításának eseményeit : az információ mellett konkrét, a programozás, a gépkeze- 
lés elsajátításához szükséges ismeretekkel is igyekszünk segíteni a téma iránt érdeklődőknek. 
Az Önök igénye hívta életre havonta megjelenő mellékletünket, a BITLET-et is. Tapasztalataink 
szerint rendkívüli érdeklődést váltott ki a televízió közelmúltban megindult BASIC tanfolyama. 
Ezért határoztunk úgy, hogy néhány hasábon, a jövő héttől kezdve mi is kapcsolódunk e kezde- 
ményezéshez, s hétről hétre az adásokkal párhuzamosan segítünk a látottak elmélyítésében. Nem 
óhajtjuk magunkra vállalni a már magas példányszámban megjelent tankönyv megismétlését, 
sokkal inkább - nem utolsósorban az Önök igényei szerint — kiegészíteni szeretnénk új ismeretei- 
ket. A tv-műsor, a TV BASIC könyv, a klubhálózat és a nyomtatott sajtó olyan újszerű együtt- 
működéséről van szó, amely sokoldalú lehetőséget nyújt e téma népes hazai táborának az ön- 
képzéshez. Következő számunkban útjára indítjuk tehát a TV BASIC rovatot. Felkérésünkre 


Kovács Győző, a Neumann János Számítógéptudományi Társaság főtitkára vállalkozott az alábbi 


ismertető-beköszöntő megírására : 


Nagyon örülök, hogy az Ötlet is csatlakozott a 
Neumann János Számítógéptudományi Társa- 
ság kezdeményezte mozgalomhoz és a TV 
BASIC-et tanulók, valamint a u klubmozga- 
lom támogatására rovatot indít. A Magyar 
Televízióval és a SZÁMALK-kal közösen 
szervezett TV BASIC tanfolyam, a Tudomány- 
szervezési és Informatikai Intézettel meghirde- 
tett u klubmozgalom, amelyhez a KISZ, a 
TIT és a Népművelési Intézet is társult, vala- 
mennyiünket meglepő országos érdeklődést 
keltett, egyben azt is jelezte, hogy a számítás- 
technikai ismeretek társadalmi méretű okta- 
tására szükség van. 

Nágyon fontosnak tartom, hogy a tv-tan- 
folyam hallgatóival folyatnatosan kapcsolatot 
tartsunk, ezért fogadtam örömmel - én, aki a 
u Mikroszámítógép Magazin elkötelezettje 
vagyok - ennek a rovatnak az indítását. 

Az Ötlet hetilap lévén, folyamatosan friss 
információkat fog szolgáltatni a tanfolyammal 
kapcsolatos esetleges változásokról, és főleg 
kiegészítő ismereteket fog adni azoknak, akik 
elhatározták, hogy ilyen módon tanulnak meg 
programozni. 


Mire gondolunk? A TV BASIC könyv, 
Kocsis András kitűnő munkája a vizsgaanyag. 


MNCZZ A ZE 
( ÖTLET 85 e Január31.  ) 


Ahhoz azonban, hogy valaki jól megtanul- 
hasson programozni, gyakorlat is kell. A gya- 
korláshoz igen sok és jó programozási példa 
kell amelyeket a BASIC-hez értő szakemberek 
készítenek. Sok ilyen példát szeretnénk a ro- 
vatban közölni. Fel akarjuk hívni a figyelmet 
a programozási fogásokra is, talán egy kissé 
nagyképűen, röviden ismertetni szeretnénk a 
programozás technológiájának alapelemeit, 
amelyre a tanfolyam keretében - az idő rövid- 
sége miatt -— nincs lehetőségünk. Ebben a 
témakörben nagyobb lélegzetű írásokat a 
u Magazinban rendszeresen megjelentetünk. 
A február 5-én megjelenő számban közzétesz- 
szük a u klubok listáját, az újabb u klubok 
címét pedig az ezt követő számokban. Feles- 
leges talán ismételnem, hogy a u. klub mozga- 
lomhoz bárki csatlakozhat, magánszemélyek, 
gm, kutatóintézet, művelődési ház, iskola, 
egyetem, szóval mindenki, aki a számítás- 
technika elterjesztéséért társadalmi felelősséget 
érez, és aki lehetővé teszi, hogy a számítógépén 
pénzért vagy ingyen bárki gyakorolhasson. 
A lista napról napra nő, a klubok száma lassan 
eléri a másfél százat. Ez a rovat a u klubokat 
is segíteni szeretné, a , hétre kész" információ- 
kat a klubmozgalomról itt fogjuk közölni. 
Nyilvánvaló, hogy terveink csak a u Mikro- 


számítógép Magazin és az Ötlet közötti 
együttműködésben valósulhatnak meg, így az 
a javaslatom, hogy az érdeklődők mindkét 
lapot kísérjék figyelemmel. 


Már szervezzük a vizsgáztatást is, eddig 
körülbelül hatezer jelentkezési lapot kaptunk, 
így elég nehéz lesz a sok jelöltet egyidőben be- 
számoltatni, de az NJSZT területi szervezetei- 
vel és a Számalk szakembereivel ezt a problé- 
mát is megoldjuk. A vizsgáról az olvasók 
ugyancsak ebben a rovatban kapnak tájékoz- 
tatást, a jelentkezési lapot több számban is 
közölni fogjuk. 

Remélem, a TV BASIC és a u klubmozga- 
lom szervezőiben azok, akik bizalmukkal meg- 
tiszteltek bennünket, nem fognak csalódni. 
Szeretnénk a TV BASIC , tanulóival" élő 
kapcsolatot tartani, ezért is várjuk leveleiket, 
amelyekre részben levélben, a u Magazinban 
és az Ötletben fogunk válaszolni. Várjuk — és 
ez nem csak udvariassági gesztus - tanácsaikat 
és kritikájukat is, hiszen a tanfolyamot jövőre 
meg szeretnénk ismételni, kijavítva mindazo- 
kat a hibákat, amelyeket szándékunk ellenére 
biztosan elkövettünk. 


A közös munkához sikereket kívánok vala- 
mennyiüknek. 


Számítástechnika 


Indul a prog 


Azok a kedves olvasók, akik a Tv-Basic 
tanfolyam kapcsán vagy egyébként meg- 
kezdték az ismerkedést a Basic számítógép- 
programozási nyelvvel, tudják, hogy a 
RUN (fuss) szó begépelésével szokták a 
számítógépek a programok végrehajtását 
elindítani. A nagyon kézenfekvő hasonlat- 
tal élve, a Tv-Basic mint program (ha nem 
is számítógépen) már fut, és az , ötlettel" 
való együttműködéssel egy újabb - véle- 
ményem szerint nagyon hatékony — prog- 
ramja indul el. 


REM 

Bizonyára tudják, hogy ez az a szó 
(REM) programsorok. elején szokott elő- 
fordulni (jelentése: megjegyzés). A REM 
után következő betűk általában érdektele- 
nek a gép számára, annál fontosabbak az 
előtte ülő személy(ek)nek. 


Belőlük derül ki ugyanis, hogy a követ- 
kező programrész mire jó, mire használ- 
ható. 


Engedjenek meg tehát néhány személyes 
megjegyzést. Először is: nagyon örülök. 
Nemcsak azért, mert a Tv-Basic az első 
összkomfortosnak nevezhető televíziós 
távoktatási vállalkozás, hanem azért is, 
mert az , Ötlet "-tel létrejött együttműködés 
a nézőkkel még szorosabb kapcsolatot te- 
remthet. Soha egyetlen pillanatig sem gon- 
doltuk ugyanis, hogy kizárólag a tele- 
vízóból bárki bármit is megtanulhat. Abban 
hiszünk, hogy a tv-adás, a tankönyv, a 


ram 


konzultáció, a Mikro-klub és immár az 
, Ötlet" együtt, egymást kölcsönösen segít- 
ve lesz képes arra, hogy önöket a Basic 
nyelvvel megismertesse.  Műsorainkban 
olyan témákat igyekeztünk válogatni, 
amelyek kapcsán minél több látványt, él- 
ményt, ötletet adhatunk a nézőknek a 
televíziós feldolgozással, és ezzel újabb len- 
dületet a tanuláshoz, a géppel való mun- 
kához. Ha már itt tartunk, egy formainak 
tűnő tény: 

Kötelezőnek éreztük, hogy a műsor 
minden illusztrációját (zenét, ábrát, rajzot, 
díszletet) számítógéppel készítsünk, arra 
próbálva ezzel utalni, hogy a számítógép, a 
programozás nem cél, hanem munkesz- 
köz. 

Másrészt: Bizonyára tudják, hogy a hé- 
ten a Tv-Basic tanfolyamnak már a 4. 
adása szerepel a műsorban. 


Ezért merészeltem abban bízva, hogy 
nem ismeretlenek Önök előtt, a Basic né- 
hány kulcsszavát alcímként felhasználni. 


IF 

Engedtessék meg, hogy e sorok olvasóit 
beskatulyázzam. Az egyik csoportba sorol- 
nám azokat, akik már a Tv-Basic műsor- 
sorozat nézői és ezért további információ- 
kat várnak az Ötlettől, a másikba azokat, 
akiknek az Ötlet (múlt heti száma) adta 
az ötletet, hogy nézőink legyenek. Minden- 


esetre talán nem veszik rossz néven, ha . 


maradok a (legalábbis tv-ben) a szokásos 
megszólításnál. Kedves Nézőink! 


Tehát IF (ha) Önök az első csoportba 
tartoznak THEN (akkor) nyugodtan át- 
ugorhatják a következő részt, legfeljebb 
talán azon érdemes elgondolkozniuk, hogy 
a Basic kulcsszavak programbeli és (fordí- 
tásuk) hétköznapi jelentése között mennyi 
az eltérés és mennyi az azonosság. 


ELSE (egyébként), vagyis ha a második 
csoportba tartoznak javasoljuk, hogy az 
alábbi felsorolás alapján kíséreljék meg a 
felzárkózást. 


Első adásunk főleg a géppel való ismer- 
kedést, a kedvcsinálást szolgálta. Megmu- 
tattuk a géppel való kapcsolatteremtés 
módját, bepillantottunk a belsejébe, vala- 
mint olyan alkalmazásokat igyekeztünk 
felsorakoztatni, amelyek elég csábítónak, 
de azért elérhetőnek látszanak ahhoz, hogy 


Hogyan használjuk a könyvet? 


talmazza teljeskörűen. Ezekről 
más magyar nyelvű szakkönyvek- 
ben részletes és kimerítő leírás 


Manapság nehéz elképzelni, hogy 
bármit is tanuljunk könyv nélkül. 
A könyv minden tanulási folya- 
mat természetes segédeszköze. Így 
van ez a Tv-Basic esetében is. 
Ez az oktatási forma kevesebbet 
nyújt egy élő előadássorozatnál, 
.de többet, mint az egyéni, könyv- 
ből való tanulás. A tv-programok 
időbeli kötöttsége nemteszi lehető- 
tővé, hogy a BASIC programozási 
nyelv teljes szélességében a képer- 
nyőre kerüljön. Ezért tehát itt is 
nagy szükség van a könyvre. 


A tv-műsorok nézése közben 
sokan csodálkozni fognak, hogy 
a képernyőn látható anyag és a 
könyv tartalma nem mindig egye- 
zik meg. Ezt nem szabad úgy érte- 
ni, hogy a két ismeretközvetítő 
ellentmond egymásnak, hanem 
inkább azt mondjuk, hogy mind- 
kettő a saját formai lehetőségét 
kihasználva igyekszik az ismere- 
teket minél eredményesebben át- 
adni a hallgatóknak. Ebből követ- 
kezik azután az, hogy a könyv egy 
fejezetére egynél több tv-műsor 
épül, vagy esetleg fordítva, néhány 
ejezetet a tv nem dolgoz fel. 


Ezenkívül a tv-ben más, rövidebb 
példákat láthatunk. Mindebből 
következik, hogy a tv-műsor és a 
könyv kiegészítik egymást, a 
tanuláshoz mindkettő egyfcrmán 
fontos. 


Ezután a néhány gondolat 
után nézzük meg konkrétan, 
hogy használható a Tv-Basic 
könyv a tanulásban. Ebben sok 
segítséget nyújt a könyv előszavá- 
nak elolvasása is, de néhány dol- 
got külön is kiemelünk. 


1. A tv-műsor akkor segít a leg- 
jobban a tanulásban, ha előre 
tanulunk hozzá a könyvből. Ezért 
mindig nézzük meg a tv-újságban, 
hogy melyik rész következik, és az 
arra vonatkozó fejezetet olvassuk 
el. Megjegyezzük, hogy a könyv 
a grafikával kevesebbet foglalko- 
zik mint a tv, ezért igyekszünk e 
lap hasábjain ésa Mikromagazin- 
ban ezeket az ismereteket írásban 
is közreadni. 


2. Nagyon fontos, hogy az egyes 
részekben leírt példát alaposan 


tanulmányozzuk át és gépen pró- 


báljuk is ki (a listák a 6. függelék- 
ben találhatók). Önálló feladat- 
megoldó képességünket a tv-ben 
elhangzó és a részcsoportok végén 
levő feladatok megoldásával erő- 
sítsük. Ehhez is segítséget fogunk 
nyújtani e lap hasábjain. 


A könyv sok hasznos ismeretet 
tartalmaz, de nyilvánvalóan sok 
minden nem fért bele. Még a négy 
gép (Commodore 64, Sinclair, 
Primo, HT) lehetőségeit sem tar- 


található. A könyv nem tér ki a 
hang előállítására és viszonylag 
keveset foglalkozik a grafikával. 


Ezeket a területeket egy érdek- 
lődő és szorgalmas néző a tan- 
folyam vége felé már saját maga is 
meg tudja tanulni. 


Sikeres tanulást kívánok a tan- 
folyamon! 


DR. KOCSIS ANDRÁS 
a Tv-Basic tankönyv írója 


( ÖTLET 85 e Február 7. ) 


a tanulás megkezdésére ösztönözzenek. 
Az egyetlen — a szó szoros értelmében vett — 
megtanulni való a PRINT utasítás hasz- 
nálata. Ezt mindenképpen érdemes utólag 
is megismerni. 

A második műsor , Ujjgyakorlat" cím- 
mel, a számítógép használatának, a billen- 
tyűzet kezelésének tudnivalóit igyekszik 
népszerűsíteni. Ezeknek utánanézhetünk a 
tankönyv bevezetőjében és első fejezetében. 
Ha sikerül begépelnünk, lefuttatnunk, 
magnókazettára — mentenünk, sikeresen 
visszatöltenünk és újra lefuttatunk egy 
programot (pl. az adásban szereplő , em- 
berevőt", Sinclairek esetében) vagy az 
alább közölt programok bármelyikét, 
elmondhatjuk, hogy elsajátítottuk ezt a 
fontos anyagrészt, és programot ha nem is 
írni, de másolni már képesek vagyunk. 

A harmadik adásban elkészült első ön- 
álló programunk a LE-KW átszámítás. 
Készítése kapcsán megismerkedtünk a vál- 
tozó fogalmával, az értékadó utasítással 
(LET), az adatok bevitelére szolgáló IN- 
PUT utasítás használatával. A lóerő- 
kilowatt átszámító program tökéletesítése 
során esik szó a GO TO és a STOP utasí- 
tásról, a programok futásának megállításá- 
ról és újraindításáról. 

A programelágazások (IF... THEN) és a 
ciklusok (FOR...NEXT) használatának 
elemei kapnak szerepet a negyedik adásban 
egy újabb igencsak egszerű — szalagnaptár- 
készítő — program elkészítése során. 

A felzárkózáshoz célszerű áttanulmá- 


nyozni a tankönyv bevezető, első, második, " 


harmadik, negyedik, ötödik és nyolcadik 
fejezetét, valamint az 1. és 2. sz. függelék- 
nek az eddig tanultakra vonatkozó részét. 


programok listáját: 


EMBEREVŐ 
(Sinclairen futtatható) 


5 RGi KEK EMBEREVŰ BaKKK 

6 LET X4mt 

49 LET Yi51 

15 LET X2238 

29 LET r2:29 

25 IF INKEY$z7TA" THEN LET Yi5Y4-4.5 
39 IF INKEY$z"Z" THEN LET YízY154.5 
35 IF INKEY$z"H" THEN LET X15X1-4.5 
49 IF INKEY$z"tI" THEN LET X4:XI64.5 

45 LET XZ22X2.SGH(X1-X2) 

59 LET Y2:Y2ZSSGN(Y4-Y2) 

55 Cus 

68 PRINT AT Y4,XÁ3"m"; AT Y2,X23"7e" 

65 IF INT(X146.5)k252 OR INT(Y4s55)43Y2 THEN GOTO 25 


79 PRINT AT Y4 X14"HAPM"3g AT Y4-4,X44" e 
75 PAUSE 199 

89 RUN 

SZALAGNAPTÁR 
(Commodore 64) 


18 REMEKEKSZALAGMHAPTAREEK 
za FRINT"TISZALAGMAPTRR" 

39 I-a 

48 FORJ-1TOZA 

JA I-I$1 

ER IFI-1THEMM$-"H" 

7A IFI:-ZTHENMEZ"K" 

39 IFIZSTHEMN£-"SZE" 

38 IFI-4THENNf$-"CS" 


188 IFI-STHENN$-"P" 

119 IFI-ETHENNZ-"SZO" 
128 IFI-7THEMHZ-"v":I5-9 
139 FPRINTJ.M$ 

149 MHEATJ 


Alább közöljük a műsorokban szereplő ] LE-KW 


(Commodore 64) 


19 REM WXLE-KUEK 

29 FRINT"X" 

39 FPRINT"LE-KW" 

49 INFUT "KEREM A LDERD ERTEKET" ;LO 
539 LET KW-LOWD.736 7 
69 PRINT LO; "LOERO" , KW; "KILOWATT" 
79 GOTD 39 


A mostani rendhagyó eset után továbbiak- 
ban előre fogjuk közölni az egyes műsorok 
témáját, továbbá azokat a javaslatokat és 
tanácsokat, amelyek a tanulást hivatottak 
segíteni. f 
INPUT 

Ezeknek az utasításoknak a hatására a 
számítógép valamit (számot vagy szöve- 
get) , beolvas" a billentyűzetről. Remélem 
már megszokták tőlem ezt a fajta asszociá- 
ciót és talán már tudják is mire gondolok. 

A távoktatásnak éppen az az egyik ne- 
hézsége, hogy az előadó nem látja a befo- 
gadó reakcióit, a befogadó viszont nem 
tud visszakérdezni. 

Nos, a továbbiakban szeretnénk itt az 
Ötletben egy konzultációs sarkot indítani, 
ahol kérdéseikre választ kaphatnak. 

Másrészt a sorozat és az egész akció ké- 
szítői egyáltalán nem gondolják, hogy -— 
így elsőre — hibátlant és tökéleteset sike- 
rült alkotni, sőt nagyon is kíváncsiak az 
Önök véleményére. 

Várjuk tehát észrevételeiket, javaslatai- 
kat az egyetértéstől kezdve, egészen — az 
INPUT szó szerinti értelmezését használ- 
va — a , beolvasás" -ig. 

H..I. 


A rendező szemével 


Amikor elkezdtünk rendszeresen 
számítástechnikával foglalkozó 
műsort készíteni -— egy évvel 
ezelőtt, a , Mi és a komputer" 
címmel havonta jelentkező mű- 
sort - számos dologgal kellett 
megismerkednünk. Bár mind- 
annyian elég régen forgolódunk 
bonyolult, és kevésbé bonyolult 
szerkezetek között, azért sok 
szempontból újdonság volt a 
személyi számítógép. Ha a gé- 
pekkel ismerkedtünk termé- 
szetes, hogy mindazokkal az 
emberekkel is kapcsolatban áll- 
tunk, akik ezeknek a gépeknek 
a használatát már megtanulták. 
Sajátos társaság ez. A kisiskolás 
, szakembertől" a felnőtt , meg- 
szállottig?" mindenki megtalál- 
ható benne. Mindannyiuk vé- 
leménye: a gépekkel való fog- 
lalatosságot abbahagyni nem 
lehet, csak az egyéb dolgok el- 
végzésének idejére felfüggeszte- 
ni célszerű... 

A korábban elterjedt szóbe- 
széd, miszerint elgépiesednek az 
emberek, beszűkül az érdeklő- 
désük stb. — egyértelműen meg- 
cáfolható, ha valaki rendszeresen 
megfordul a számítógépesek kö- 
. zött... Egy biztos, keserű, bána- 


ÖTLET 85 e Február 7." 


tos embert nem találtunk a gé- 
pek körül, lelkeseket annál in- 
kább! Sok mindenhez szokott, 
edzett televíziósoknak is feltűnt, 
hogy milyen hatalmas összetartó 
ereje van ennek a kis szerkezet- 
nek. Valami új, közös nyelv az, 
ami összeköt teljesen különböző 
érdeklődésű embereket. 


Házunk táján - a Televízió- 
ban -, is szinte percenként hódít 
meg újabb munkatársakat a 
számítógép. Így nem csoda, hogy 
lassan kialakult egy stáb, ame- 
lyik örömmel vállalta egy szá- 
mítógépes oktatóműsor elké- 
szítését. A hozzánk érkező, 
érdeklődő, beszámoló levelek, 
telefonok jelezték, hogy mekko- 
ra igény van a személyi számító- 
gépek, és a velük való tevékeny- 
ségek lehetőségének megismeré- 
sére. 


Problémák persze mindig fel- 
merülnek. A gépek - éppen egy- 
szerűségüknél fogva — nem pro- 
fesszionális célokra készültek, 
így az általuk produkált kép 
sem a televíziós szabványok sze- 
rint jön létre. Ebből következik, 
hogy a gépek tv-képernyőn való 
megjelenítése elég sok gondot 


okozott, és okoz is nekünk. 
Átalakítások és rafinált trükkök 
kellenek ahhoz, hogy az adás- 
ban - reméljük - még olvasható 
sorok jelenjenek meg a képer- 
nyőn. Az egyes gépek sajátos- 
ságait is figyelembe kellett ven- 
nünk. A sokak által igen kedvelt 
Spectrum például, egy egész 
napos felvétel délutánján már 
olyan forró volt, hogy ventillá- 
torral kellett hűtenünk szegényt, 
mindezt azért, mert a képernyőn 
megjelenő sorok már semmikép- 
pen nem voltak egymással pár- 
huzamosak. A Commodore-nak 
meg a színei szűntek meg időn- 
ként, de sorolhatnám a gondokat 
még hosszasan. 


A képernyő felosztása is igen 
furcsa jelenségeket produkál. 
Az előadó kezd ismertetni egy 
fogalmat, az illusztráció igen kis 


felületen elfér. Hamarosan a 
képernyő jelentős részét átveszi 
a programrészlet, és mindenféle 
trükk segítségével végül az elő- 
adónak mindössze egy vasaló- 
deszkányi asztalkája marad, 
amin a számítógép még éppen 
elfér. Nem lehet mit tenni, 
ebben az esetben a program 
mindennél fontosabb. Ősi számí- 
tástechnikai alapszabály, mely 
szerint egy gép és egy program 


mindig kifogástalanul működik 
— kivéve, ha be kell valakinek 
mutatni. Nos, ilyenkor senki 
által meg nem magyarázható 
dolgok történnek. - A gépek 
ilyenkor oly dolgokra is képe- 
sek, amit egyébként lehetetlen 
velük megcsinálni. Természete- 
senezek a pillanatok nem képez- 
hetik a sorozat részét, tehát csak 
a készítőket boldogítják. Végül, 
de nem utolsósorban az elő- 
adókról szólnék. Cseppet sincs 
könnyű dolguk! A már előbb 
felsorolt körülmények között, 
néhány kellemesen vakító lám- 
pa tüzében mindössze oldottan, 
és hiba nélkül kell beszélniök, 
és a gépeket kezelni. Ha felvétel 
közben sem a gépek nem bakiz- 
nak, és az előadóknak sem a 
nyelvük, sem az ujjuk nem bot- 
lik meg, akkor kész a műsor- 
részlet. 

Mi, akik készítjük, nagyon 
reméljük, hogy Önök, akiket 
érdekel, hasznát veszik tanul- 
mányaikhoz. 


ALBERT JÓZSEF 
a Tv-Basic rendezője 
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Nemcsak a programozásban, hanem a 
mindennapi életben is gyakran kényszerü- 
lünk döntésekre, amikor tevékenységünket 
valamilyen feltétel teljesítésétől függően 
folytatjuk egyik vagy másik irányban. Pl. 
van-e elég érdeklődésünk és kitartásunk, 
hogy folytassuk a Basic-tanulást. Az egyik 
esetben a folytatás nyilvánvaló, a másik 
esetben segítség után kell nézni. 


Ugyancsak gyakran előfordul velünk, 
hogy ugyanazt a tevékenységet, feladatot 
többször egymás után végre kell hajtanunk. 
Ilyenkor szoktuk azt mondani a tevékeny- 
ségre, hogy gépies, a szakmai megfogal- 
mazás kissé enyhébb: ciklikus. Minden- 
esetre a gépeket éppen ilyen feladatokra 
találták ki. 

A tv-sorozat 5. adását e két tevékenység- 
gel kapcsolatos tudnivalóknak szenteltük. 
Mindenekelőtt bemutatjuk a házi feladat 
megoldását a szalagnaptárprogram alábbi 
módosítását. 


Az elágazások és ciklusok problemati- 
káját egy hajdan volt cipészmester példá- 
ján kíséreljük meg bemutatni. Természete- 
sen nem a mesterség a lényeges, hiszen 
bármely más foglalkozásnál találhatunk a 
programozás szempontjából hasonló te- 
vékenységeket. 


Rovatszerkesztő: HEGYI ISTVÁN 


Elágazások, ciklusok 


A programelágazás feltételének meg- 
fogalmazásakor (persze nemcsak akkor) 
kapnak szerepet a matematikai műveletek, 
kifejezések és relációk. A róluk elhangzó 
tudnivalóknak szükség esetén a tankönyv 
81-96. oldalán lehet utánanézni. Ugyan- 
csak az elágazás feltételének kifejezésekor 
fordulnak elő programokban a logikai 
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Mivel a vizsga messze van, a puskázás még 
nem bűn. Inkább mi is segítünk. 


BIT-LET 
316 oldal számítástechnika 


havonta az Ötlet 
utolsó heti számában 
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Az ötödik adás , tanmeséjének" főszereplője 
a Commodore képernyőjén 


műveletek a NOT (nem), az AND (és) 
és OR (vagy). Ezeknek a szavaknak hasz- 
nálata kissé eltér a hétköznapi életben 
megszokottaktól. Ezért a következőkben 
külön is foglalkozunk velük. 

Az adásban szereplő és alább olvasható 
program azonban addig is önmagáért 
beszél. 
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A program - mint az adásból kiderül — egy 
nagy forgalmú személyiszámítógép-üzlet 
eladóját lenne hivatott megkímélni a vevők 
sztereotip kérdéseitől: , Milyen gépet ve- 
gyek a gyerekemnek ?" A vevőnek csak be 
kell gépelnie a gyerek életkorát és a gép 
máris megteszi ajánlatát. 


A programelágazások gyakran előfor- 
duló fajtája, amikor nem kettő, hanem több 
lehetséges folytatás közül kell választanunk. 
Az ilyen ún. CASE (eset) szerkezettel 
kapcsolatos tudnivalókat — az adásban sze- 
replő példán kívül — a tankönyv 100-107. 
oldalán találhatják meg. A házi feladat- 
ként szereplő , számolvasó" programot a 
következő számban fogjuk közölni. Addig 
is jó fejtörést. Az ismétlődő tevékenységek 
programozásánál nélkülözhetetlen ciklu- 
sok összefoglalásával zárul a Tv-Basic 5. 
adása. Ehhez a témához a könyv 8. fejeze- 


tében találnak olvasnivalót. 
H.I. 


( ÖTLET 85 e Február14.  ) 


A feladatok ; 
megoldása 


Ebben a számban az első adások- 
hoz kapcsolódó 2 házi feladatnak 
szánt program megoldását mutat- 
juk be azoknak, akik elakadtak a 
programok írása közben vagy 
időhiány miatt nem jutottak hoz- 


za. 
0 


A SZORZATKITALÁLÓ 
PROGRAM (TV-BASIC 111. ol- 
dal 4. feladat). 


A feladat már a könyv első részé- 
ből (23-24. old.) ismert, itt most 
a kiértékelési részre helyezzük a 
hangsúlyt. 

Az első lépésekben elő kell 
állítani két véletlenszámot (1-12 
között) az A és B értékére, ezeket 
ki kell írni és be kell kérni a né- 
zőtől az általa kiszámított szor- 
zatot. A programban a kiszámí- 
tott és a beírt szorzatot kell össze- 
hasonlítani egy IF utasításban 
(180 sor). 


A továbbiakban egy IF THEN 
ELSE szerkezetet kell megírni, 
mivel az összehasonlítás eredmé- 
nyeként két műveletsor (jó vagy 
nem jó) egyikét kell végrehajtani. 


Ha helyes a néző által beírt 
eredmény, akkor ezt tudatni kell 
(200-230 sor) és a program végére 
kell ugrani. Ellenkező esetben 
(240-270 sor) pedig a szorzat be- 
íráshoz, hogy a néző javíthasson. 


Néhány megjegyzés a program- 
hoz: a program kezdetén be lehet 
állítani a keret, a háttér és az írás 
színét. A keretet az 53280, a 
hátteret az 53281 című byte-ba írt 


19 REMkikikkkkkkkkkkik 
290 REMk xk 
39 REMk SZORZAT : 
49 REMk xk 
39 REMkkkkkkkkkkkkik 
690 POKE 53280.,8 


70 

sg 

99 
109 
110 
129 
138 
148 
1590 
169 
179 
189 
199 
200 
e19g 
"229 
2309 
249 


POKE 53281.,09 
PRINT CHRSs(1532 
PRINT"44" 
AZ-INT(ARNO(12x1229t1 
B-INTÁRND(1)x12)t1 
PRINT "Az"; 

PRINT 
PRINT 
PRINT 
INPUT"A SZORZAT: 
D-AxB 

IF C-D THEN 209 
GO TO 240 

REMk THEN AG kk 
PRINT 

PRINT"EZ JBL 

G0 TO 289 

REMx ELSE AGrk 
259 PRINT 
260 PRINT"NEM JO! 
PROBALJA MEG UJRA!" 
erg GO TO 159 

280 END 
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0-15 értékkel lehet beállítani (csak 
C 64! Az írás színét a CHRS 
függvénybe írt megfelelő értékek 
beírásával lehet meghatározni a 
gépleírásban levő karaktertáblá- 
zat alapján. Próbáljuk ki ezeket az 
összeállításokat (ha színes tévénk 
van) és válasszuk ki a legjobbat. 
Célszerű az IF THEN ELSE szer- 
kezet két ágát külön utasítás- 
csoportokban kódolni, annak el- 
lénére, hogy a THEN ág utasítá- 
sai a 180 sorban is elférnének. A 
bemutatott módon kódolt prog- 
ram azonban áttekinthetőbb, ja- 
víthatóbb. Ha már így kódoltuk, 
gondoljuk meg, mi lenne, ha a 
THEN ág végéről elhagynánk a 
230 sort! 


Megjegyezzük, hogy a két ág 
kódjának sorrendje a programban 
tetszőleges. Az ELSE ág is lehet 
elöl, de akkor az ugrásokat is 
ennek megfelelően kell beírni. 


Végül ne feledkezzünk el a 
kiírás formájáról sem. A képernyő 
akkor áttekinthető, ha a szövegek 
között , levegő" van. Ezt üres 
PRINT utasításokkal lehet elérni. 
Figyeljük meg például, hogy a 
, NEM JÓ ..." kiírás után nem a 
szorzatbeolvasásra tér vissza a 
vezérlés, hanem az előtte levő 
PRINT utasításra (150 sor) és így 
a két szöveg között egy üres sor is 


lesz! 
12) 


A MÁSODFOKÚ EGYEN- 
LET MEGOLDÁSA 


Talán nem tartozik a , magas abb" 
matematikába a másodfokú egyen- 
let megoldása, hiszen-középiskolás 
tanulmányaink során mindnyájan 
elég sokat nyüstöltük a megoldó- 
képletét: 
—b-23Vb2— 4ac 
X1,2 szi. altal 
2a 
ahol az xy , az egyenlet gyökei és 


a többi betű pedig az egyenlet 
együtthatói : 


ax21-bxi1-c — 0. 


A másodfokú egyenlet gyökeinek 
kiszámítására írt programban jól 
lehet gyakorolni az elágazásokat. 


Nézzük végig röviden milyen 
lépésekben kell a gyököket kiszá- 
mítani! Először is be kell olvasni 
a három együttható értékét. Majd 
meg kell vizsgálni, hogy van-e 
valós megoldása az egyenletnek. 
Ez a kérdés a négyzetgyőökjel 
alatti rész előjeléből megválaszol- 
ható. Ha ez negatív, akkor nincs 
valós megoldás. Ez a feltétel ké- 
pezi az első IF THEN ELSE 
szerkezetet. Azegyik ágban(legyen 
ez a THEN ág) ki kell írni, hogy 
nincs megoldása az egyenletnek, . 
a másik ágban (ez pedig az ELSE 


ág lesz) pedig a megoldást kell ! 


REMkkkEEkkEkkkkkk 
REM4 x 
REPix MASODFOK x 
REDk k 
REMkikikkktkkkkkik 


PRINT"U4" 

PRINT" 

PRINT 
PRINT" 
PRINT: PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


GO TO 3090 
REMk THEN AG 4 
PRINT 


GO TO 539 


GO TO 490 


REMk THEN AG xk 
5:(-B2/(2ern) 


PRINT 

PRINT "Xz"7X 

GO TO 5319 

REMkkkikik KET GYOK 
REMx ELSE AG k 
D-SGR(Bt2-(4rAxrCl) 2) 
X1-(-BtOD/(erA? 
2-(-B-D2/(2rA2 


PRINT 
PRINT"X15";XI 
PRINT 

PRINT"X2-";X8 
REMk IF VEG 


PRINT 
PRINT" 
END 


MV ex új 


tovább keresni. Látható a prog- 
ram kódjából, hogy a THEN ág 
végén a program végére ugrunk, 
amely az ELSE ág vége is. 


A  megoldhatósági vizsgálat 
ELSE ágában (van megoldás, 
300-510 sorok) azt kell megnézni, 
hogy az egyenletnek egy vagy két 
megoldása van-e. Ha a négyzet- 
gyök jel alatti rész 0, akkor csak 
egy megoldás van, egyébként 
kettő. Ennek a feltételnek a THEN 
ága (330-390 sor) legyen az egyet- 
len megoldás. Az x értékét ki kell 
számítani és ki kell írni. Az ELSE 
ágban (400-500 sor) pedig a két 
megoldást kell kiszámítani és 
kiírni. 

Ennyiből áll a program. Meg 
lehet másképp is oldani? Biztosan 
és ezt rábízzuk a tanfolyam részt- 
vevőire. Egy egyszerűsítési lehető- 
ségre mi is felhívjuk a figyelmet. 

Elég a két megoldást kiszámító - 


í 


REMkkikk AP MEGOLDHATOSAG VIZSG. 
IF Bte-(4xrAxrC THEN e308 


REMkkkkkk EGYUTTHATOK kriiíi4k 


A MASODFOKU EGYENLET GYOKE INEK" 


KISZAMITASÁ" 


kkxkxk 


PRINT"öZ EGYENLETNEK NINCS 
PRINT"VALOS MEGOLDASA!" 


REMkkikkikk fi GYOKOK SZAMA krkkkik 
IF Bt2-44:AXC THEN 330 


REMkkXikk EGYETLEN GYOK kikikik 


REMkkkkk EREDMENY KIIRAS (12kkkkik 


Xkkkik 


REMkkkkk EREDMENY KIIRAS f(2lkkkkik 


REMkkkkk BEFEJEZES kikXkik 


G E" 


részt megtartani, és ezzel ki lehet 
számítani az egyetlen megoldást 
is. 
Ezzel a feladattal jól gyakorol- 
ható az elágazások programozása. 
Nagyon ügyeljünk a THEN ágak 
végének kódolására. Ezekről a 
pontokról mindig az elágazási 
szerkezet végére kell ugrani (ez 
egyúttal az ELSE ág vége is). 

Látható, hogy a programban 
többször beírtuk a 4ac, a b2 és a 
2a kifejezéseket. Írásmunkát taka- 
rítunk meg, ha ezek értékét egyet- 
len változónak adjuk meg, pl. 


e — 4ac 
f — b2 
g — 2a 


Ebben az esetben a program j 
nehezebben olvasható, mert külön 
meg kell jegyezni, hogy az új vál- 
tozók mit helyettesítenek. 


DR. KOCSIS ANDRÁS 


Számítástechnika 
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Rovatszerkesztő: HEGYI ISTVÁN 


Rajzol a gép 


Rajzolni valószínűleg mindenki sze- 
ret. Így aztán nem csoda, hogy a számí- 
tógéppel készíthető ábrák, rajzok nagy 
csábítást jelentenek. Azért kedvelik, 
mert a géppel létrehozott rajzot — 
úgymond -— soha nem kell összetépni, 
vagyis az elrontott vonalak nyom nél- 
kül eltüntethetők, ugyanakkor a sSi- 
került részek viszont megőrizhetők. 
Mindehhez járul még :a variációs le- 
hetőségek nagy száma és az ,Ön- 
maguktól" kirajzolódó vonalak izgal- 
mas, szemet vonzó látványa. 

Ha még hozzátesszük, hogy a 
televíziós oktatás kitejezetten vizuális- 
nak mondott műfaj, azt hiszem, nem 
kell tovább: indokolnom, hogy miért 
kap a grafika — nem is jelentéktelen — 
helyet a TV-BASIC sorozatban. 


Grafika a Sinclairen 


Kezdő programozók számára az egyik leg- 
izgalmasabb feladat üzenetek, ábrák megjelení- 
tése a képernyőn. Ez teljesen érthető, hiszen 
ez az a terület, ahol közvetlenül lemérhető, 
hogy a számítógép valóban mindent ugyanúgy 
ért-e, mint ahogy mi azt szeretnénk — vagy 
megfordítva : valóban mindent ugyanúgy értel- 
mezünk és használunk-e, mint ahogy azt a 
BASIC kívánja. Ezért most, a legfontosabb 
BASIC utasítások megismerése után tekintsük 
át a számítógépes grafika alapjait, elsősorban a 
ZX 81 és a ZX Spectrum gépeken. Megje- 
gyezzük, hogy a lehetőségek részben hasonlók 
a Primo számítógépen is. 

Eddig a PRINT utasítás használatával tud- 
tunk a képernyőre kiíratni szövegeket, számo- 
kat, változók értékét vagy akár összetettebb 
matematikai műveletek, kifejezések eredmé- 
nyét is. Hogy ezek a képernyőn hol jelenjenek 
meg, egymáshoz képest hogyan helyezkedje- 
nek el, azt megfelelő számú szóköz és üres sor 
közbeiktatásával, valamint a PRINT utasítás 
speciális elválasztójeleinek használatával be- 
folyásolhatjuk. Alapesetben minden egyes 
PRINT utasítás a következő üres sorba ír. 
Ha a PRINT kulcsszót követőlistában a kiíra- 
tandók között ,,?" elválasztójelet használunk, 
a kiíratandók közvetlenül egymás után kerül- 
nek kiírásra, míg a ,, , " hatására a kiírás a 
képernyőn a következő kitüntetett karakter- 
pozíciótól kezdődően folytatódik. (A ZX 81 
és a Spectrum esetében ez a 0 és a 16.) Ezek az 
elválasztójelek a PRINT utasítás listájának a 
végén is hatásosak, tehát ha egy ilyen listát 
,537-vel zárunk le, a következő PRINT utasí- 
tásban megadottak nem új sorba kerülnek, 
hanem folytatólagos lesz a kiíratás. Ezt mutatja 
be a következő mintaprogram: 


Bt E ÉTÉ JEE JEE JE JEE 936 3E 
sgn 
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30 
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106-FPRINT " 


x" 
TETEJE ÉTÉ JE NE TE E HÉÉ TEJE JE TE JE JE E JEE JEE 9E KENT 


(A program lefutásának hatására az , Ez csak 
emlékeztető!" szövegnek kell megjelennie 
felülről az ötödik sorban, csillagokból álló 
keretben.) 


Ezzel a módszerrel már tetszőleges helyen 
tetszőleges karaktersorozatot megjeleníthetünk 
csak legfeljebb egy kicsit nehézkesen. 


A soron belüli elhelyezést a TAB kulcsszó 
használatával könnyíthetjük meg. Ennek a 
hatását a legegyszerűbben úgy érthetjük meg, 
ha elképzelünk egy mutatót, ami a képernyő- 
nek mindig arra a helyére mutat, ahova leg- 
közelebb írni fogunk. Nevezzük ezt most csak 
, ide írj?" mutatónak. A PRINT utasítások 
végrehajtása során ez a mutató általában balról 
jobbra, sorról sorra haladva mindig más-más 
helyre mutat. Minden egyes karakter kiírása 
után egyet előrelép, és így a következő karak- 
terpozícióra mutat. A ,,;" elválasztójel hatá- 
sára helyben marad (így lesz folytatólagos a 
kiírás), a ,, , " hatására a következő kitünte- 


10 
20 
30 
240 
Hab 
60 
70 
30 
90 


CL8 

PRINT 
ERINT 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
PRINT 


1 gen ; TÖB 28; ng 


A TAB kulcsszó haszná- 
lata főleg a táblázatok 


tett karakterpozícióra ugrik, újabb PRINT 
hatására pedig a következő sor legelejére áll. 
Ez a mutató a TAB X hatására addig halad 
balról jobbra, míg a következő X sorszámú 
karakterpozícióra nem ér. Ez azt jelenti, hogy 
ha egy adott soron belül az ,, ide írj" mutató 
már hátrább áll, mint az X által meghatározott 
érték, akkor a következő sor X. helyére ugrik, 
azaz pl. ha eddig a mutató a 3. sor 4. pozíció- 
jára mutatott, a TAB 10 hatására a 3. sor 10. 
pozíciójára áll, de ha eddig a 3. sor 12. pozí- 
ciójára mutatott, akkor ezután a 4. sor 10. 
pozíciójára fog mutatni. Fontos megjegyezni, 
hogy a Sinclair gépeknél a kiírásra felhasznál- 
ható képernyőrész 22 sorból és 32 oszlopból 
áll, és ugyanúgy, mint a legtöbb személyi 
számítógépnél, a sorok és oszlopok számozása 
a bal felső sarokból 0-s sorszámmal kezdődik, 
tehát a TAB kulcsszó után olyan számot, vál- 
tozót vagy kifejezést adhatunk meg, melynek 
értéke 0 és 31 közötti. (Érdemes kipróbálni, 
hogy mi történik ettől eltérő érték megadása 
esetén!) A TAB kulcsszó többször is szerepel- 
het egyetlen PRINT utasítás listájában. Az 
előzővel azonos eredményű program a TAB 
kulcsszó felhasználásával: 


"er: TAB 6r;"Ez csak emlekezteto! "§ TÁR Z8."x" 


TE ZÉ TÉE ÉTÉ JÉ JÉ E JE JE JÉ JÉ HÉ E HEHE JE JE JE JE JE JE KE EE TT 


készítésében nyújt segít- JÉ Mgnejü ts 15 
séget, mivel ezzel köny- 0 LETT a "Nagyneni" s: LET máz"i al tie gib 
nyen elérhetjük, hogy a 40 LET dázs"Aápa" LET L$z"1924.maj. 3. 
táblázat — oszlopai ne 50 CLS : PRINT ERINT üi 
csússzanak el, az egyes 26) ERINT TAR 4: "RokontSTAB 176"Gsú7 ádan 
élem pontosan egymás sz a ér : mr sé feljejááas; S TAB IZE "SZA ető 
alatt kerüljenek kiírásra. 30 BRINT TAR Z$as:TARB 1E 4 
Ezt mutatja meg a követ- 57 c; ES jséztásl : zel ABE 
kjüte Déz 30 PRINT TAB Zzhá;TAB lérnt 


kező, a családi születés- 
napokat táblázatba ren- 
dező program: 


! 


110 PRINT TAR 


100 FRINT TAR 


ic$;TAB lérm§ 


Z;dELTAB 1631t 
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A TAB segítségével tehát megúszhatjuk a 
fölösleges töltelék szóközök kiíratását, de 
vajon mindig ki kell-e írnunk a megfelelő szá- 
mú üres sort ? Természetesen nem, ennek egy- 
szerűsítésére szolgál az AT kulcsszó. A PRINT 
utasításban használható AT Y,X hatására az 
,ide írj" mutatónk az Y. sor X. karakter 
pozíciójára ugrik, akárhol is állt előtte. (A 
Primón a PRINT AT-nek a PRINTS felei 
meg.) 

Az első pillanatban még nem látszik, de az 
AT kulcsszó használata nagyobb lehetőségeket 
rejt magában annál, mint a töltelék szóközök 
és üres sorok kiíratásának megspórolása. 
Ugyanis a PRINT eddig ismert formáival 
mindig csak a már megkezdett sorba vagy az 
ezután következő sorokba lehet írni. Az AT 
kulcsszó használatával viszont a képernyőnek 
annál felsőbb részeibe is írhatunk, javíthatunk, 
mint ahová legutóbb írtunk, és csak azt a 
képernyőterületet írja át, ami a kiírandó meg- 
jelenítéséhez feltétlenül szükséges. Hogy ezt 
megmutassuk, javítsuk át a fenti program által 
készített táblázatban Hugi születési évét 
1985-ről 1968-ra. Ehhez a következő paran- 
csot kell kiadnunk : 


PRINT AT 5,18; "68" 


Az AT kulcsszó után, a TAB-hoz hasonlóan 
számkonstans, változó vagy akár kifejezés is 
megadható, melyeknek értéke a 0 és 2], ill. 
0 és 31 közé esik. (Itt is érdemes kipróbálni az 
ettől eltérő értékek hatását!) 

Ezennel be is fejeztük a PRINT különböző 
formáinak tárgyalását, különböző karakterek 
különböző helyeken történő megjelenítését. 
Most nézzük meg inkább azt, hogy hogyan 
lehet a BASIC nyelv támogatásával finomabb 
grafikákat készíteni a Sinclair gépekkel. 

A képernyő, mint láttuk, 22 sorból és 32 
oszlopból áll. Ez összesen 704 karakter. Min- 
den karakter 8x8 kis négyzetből épül fel. 
Az ilyen kis négyzetet pixelnek, képelemnek 
nevezzük. Ez az a legkisebb pont, melyet meg 
tudunk jeleníteni a képernyőn. A pixel helyét 
a képernyőn két szám, az ő koordinátája ha- 
tározza meg. A koordinátarendszer kezdőpontja 
a képernyő bal alsó sarka, a vízszintes távolsá- 
got az X tengelyen, a függőlegeset az Y tenge- 
lyen mérjük. Vízszintesen 256, függőlegesen 
176 képelem helyezkedik el, összesen tehát 
256 x 176 képelem alkotja a képernyőt. A ZX 
81-nél az X tengely mentén 64, az Y tengely 
mentén 44 képelem helyezkedik el, vagyis itt 
64 x 44 képelem alkotja a képernyőt. 

A képernyő elemeinek a kirajzolására szolgál 
a PLOT X,Y utasítás. A PLOT kulcsszó 
utáni két érték a kirajzolandó képpont x, ill. 
y koordinátáit jelenti, azaza PLOT 20,30 utasí- 
tás hatására az x — 20, y — 30 koordinátájú 
pont, a PLOT 0,0 hatására a bal alsó sarokban 
elhelyezkedő pont jelenik meg a képernyőn. 
IPrimón SET (x,y). 

Az x,y koordinátájú meggyújtott képpontot 
a ZX 81-nél az UNPLOT X,Y utasítással 
lehet kioltani, míg a Spectrumnál erre a 
PLOT INVERSE 1;X,Y szolgál. [Primón 
RESET (X,Y).] 

Ezzel a ZX 81 rajzolást elősegítő funkciói 
ki is merültek, a továbbiak a Spectrumra vo- 
natkoznak. 

A PLOT X,Y úgy képzelhető el, mintha a 
ceruzánk hegyét az X,Y koordinátájú pontra 
helyeznénk. Éppen ezért a rajzolás során a 
ceruzánk aktuális helyét BASIC szakkifejezés- 
sel , PLOT pozíció"-nak nevezik. Alapállapot- 
ban ez a pozíció az X — 0, Y — 0 hely. 

A , ceruza hegyének" elmozdítására szolgál 
a DRAW X,Y utasítás. Ezzel egy olyan egye- 
nes szakaszt rajzolhatunk, melynek kezdő- 
pontja a ceruzánk hegyének a helye, a vég- 
pontja pedig ettől vízszintes irányban X, 
függőleges irányban Y távolságra van. A 
DRAW utasításban szereplő X és Y értékek 
tehát csak az aktuális PLOT pozícióhoz viszo- 
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nyított relatív értékek, és így értékük negatív 
is lehet. Ez pusztán annyit jelent, hogy nem 
jobbra, ill. felfelé történik az elmozdulás, ha- 
nem balra, ill. lefelé. Mindezek megértéséhez 
próbáljuk ki a következőket: 

PLOT 100,50 : DRAW 50,100 
Így a ceruzánk az X — 100, Y — 50 koordiná- 
tájú pontot és az X — 150, Y — 150 pontot 
kötötte össze. Fontos, hogy a ceruzánk hegye 
ebben a pozícióban marad, és a legközelebbi 
DRAW ebből a pontból rajzol. A DRAW 
—70—30 hatására a ceruzánk hegye az 
X — 80, Y — 120 pontba került. Abban az 
esetben, ha a rajzolást nem ebből a pontból 
szeretnénk folytatnii a PLOT utasítással 
kellene a kívánt helyre áthelyezni a ceruzánk 
hegyét. 

A DRAW utasítás egy másik formájával 
íveket rajzolhatunk, ez pediga DRAW X,Y,A. 
Az X és Y itt ugyanazt jelenti, mint az előbb, 
vagyis az ív végpontjának a kezdőponttól való 
távolságát, míg az A az ív hajlásszögét adja, 
mégpedig radiánban. A megszokottabb és 
elterjedtebb fok átváltása radiánba a 27 — 
360?" összefüggés felhasználásával könnyen el- 
végezhető. A hajlásszög lehet negatív is, a 
különbség a következő: az ív kezdőpontjába 
állva pozitív hajlásszög esetén balra kanyarod- 
va, negatív hajlásszög esetén jobbra kanyarod- 
va jutunk el a végpontba. 


végpont 
negatív 
hajlásszög 
pozitív 
! hajlásszög 
kezdőpont 


DRAW ,X,Y,A, 


A  PLOT 100,100:DRAW 50,0,PI 


hatására egy olyan alsó félkört kapunk, mely- 
nek végpontjai az X — 100, Y — 100 és az 
X — 150, Y — 100 pontok. 

Teljes kört a CIRCLE X,Y,R utasítással 
rajzolhatunk. Az első két érték a kör közép- 
pontjának koordinátái, a harmadik a kör 
sugara. A PLOT pozíció a kör rajzolásakor is 
megváltozik, arra az értékre áll be, ahol a kör 
rajzolása befejeződött. 

A fent említett parancsok, a PLOT, a.DRAW 
és a CIRCLE a legtöbb személyi számítógép- 
nél megtalálhatók, csak némi módosítással. 
Ugyancsak minden személyi számítógép ren- 
delkezik az írásra használt karakterek mellett 
úgynevezett grafikus karakterekkel is. Ezek 
különböző helyzetű sötét és világos négyzetek- 
ből állnak. Ezeknek a PRINT utasítással 
történő kiíratásával könnyen és gyorsan raj- 
zolhatunk egyszerűbb ábrákat. A Spectrum 
16, a ZX 81 22 ilyen grafikus karakterrel 
rendelkezik. A Spectrum lehetőséget biztosít 
arra is, hogy a felhasználó saját karaktereket 
definiálhasson, s azokat tetszés szerint hasz- 
nálhassa. Így könnyen kialakíthatjuk az angol 
betűkészletből hiányzó magyar betűket, vagy 
akár a görög ABC betűit is. 

Mostanra megismertük a gép grafikus pa- 
rancsait. Eddig azonban rajzaink csak szín 
nélkül készültek. Sajnos, ez a ZX 81-nél nem 
is lesz másként (a Primón sem), de a Spectrum- 
tulajdonosok a megfeleiő színes televízió 
segítségével színes ábrákat is készíthetnek. A 
Spectrum nyolc színnel rendelkezik, s ezek 
mindegyikére egy számmal hivatkozhatunk. 


A PAPER N utasítással tudjuk az N által meg- 
határozott színűre festeni a képernyőnek azon 
részét, amelyre írni, rajzolni tudunk, az ezt 
körülölelő keretet a BORDER N utasítással 
tudjuk átszínezni, míg az INK N a tinta, tehát 
a rajzolt vonalak színét változtatja meg. 

Végül az áttekintett utasítások használatára 
egy példaprogramot mutatunk. Akinek van 
hozzá kedve, gépelje be! Hogy mit rajzol? 
Meglepetés ! 
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HORVÁTHNÉ MAJSA KATALIN 


Az ALKOTÓ IFJÚSÁG EGYESÜ- 
LÉS az alábbi programtermékeket 
ajánlja személyi számítógépekhez: 


ZX 81 típushoz: 


MATEMATIKAI PGOGRAM- 
CSOMAG 

RELAX ÁLTALÁNOS ADAT- 
BÁZIS-KEZELŐ RENDSZER 
MATEMATIKAI -STATISZTIKAI 
PROGRAMCSOMAG 


Spectrum típushoz: 
MATEMATIKAI PROGRAM - 
CSOMAG 

ECT VIZSGÁLATI RENDSZER 
PROGRAMJAI (klinikai-kutatási 
és folyamatszabályozási feladatok 
megoldására) 
ELEKTROTECHNIKAI 


PROGRAMCSOMAG 

(kilenc alapvető elektrotechnikai 
számítás elvégzésére alkalmas) 
RELAX ÁLTALÁNOS ADAT- 
BÁZISKEZELŐ RENDSZER 
MATEMATIKAI-STATISZTIKAI 
PROGRAMCSOMAG 


További információval szolgál: 


ALKOTÓ IFJÚSÁG 
EGYESÜLÉS 
Számítástechnikai Iroda 


Levélcím: 1519 Budapest. 
Pf.: 330 
Telefon: 112-666, 113-608 


Telexszám: 22-7272 


Rovatszerkesztő: HEGYI ISTVÁN 


Tegyük félre a számítógépet! 


Ezzel a számítógép-kedvelők, programozni tanulók számára furcsa, meghökkentő 
felszólítással vezethetjük be a Tv-Basic-sorozat következő, a programozás mód- 


szeréről szóló témakörét. 


No persze csak ideiglenesen, arra az időre, amíg kigondoljuk, megtervezzük, 
hogy egy adott feladatot hogyan fogunk a géppel megoldani. 
A felszólítás egyébként is csak arra vonatkozhat, akinek gyakran van a keze 


ügyében számítógép. 


A profi programozók és haladóbb amatőrök szerint ugyanis a programozás 
— főleg a bonyolultabb programoké — nem a számítógépnél kezdődik. Persze 
nem mindenki kíván hivatásos programozó lenni, ennek ellenére érdemes el- 
gondolkodni előadóink módszertani tanácsain. 

Több kedves nézőnk, illeve olvasónk kérte, hogy foglalkozzunk részletesebben 


olyan alapfogalmakkal, 


ismeretekkel, amelyeknek tartalma, megfogalmazása 


eltér a mindennapi életben megszokottól. Ezért indítjuk el Dr. Ada-Winter Péter 


Alapok" című sorozatát. 


A tanfolyam félidejéhez közeledik, sokan már a vizsgára gondolnak. Tőlük 
egyelőre kis türelmet kérünk, a vizsgával kapcsolatos tudnivalókat is rövidesen 
közzétesszük, ugyanúgy, mint az újonnan megalakult mikroklubok listáját. 


Módszerrel vagy anélkül 


A TV-BASIC tanfolyam (és a személyi számí- 
tógépek elterjedésének) egyik mellékterméke 
egy , hitvita" arról, hogy kell-e vagy érde- 
mes-e valamilyen módszert alkalmazni a prog- 
ramok készítéséhez. 


A 60-as években azonban a számítógép ki- 
tört a tudományos területekről és elkezdte 
meghódítani a gazdaság különböző ágait. 
A számítógép felhasználása iránti igény meg- 
nőtt és a számítógépes rendszerek programo- 
zása egyre több munkaerőt kívánt. Ezért 
többé már nem lehetett csupán a zseni progra- 
mozókra számítani, be kellett vonni a szak- 
mába olyan embereket is, akik a programozást 
. főleg kenyérkeresetnek tekintették. Emellett 
megjelent egy új szempont is: a hatékonyság. 
Az egymással versengő szervező és progra- 
mozó cégek igyekeztek minél rövidebb átfutási 
idő alatt és minél olcsóbban (kisebb ráfordí- 
tással) szállítani a számítógépes rendszereket. 


Ahhoz, hogy sok programozót be lehessen 
vetni és hatékonyan tudjanak programokat 
előállítani, először is ki kellett őket képezni. 
Már a kiképzéshez kellett a programozás 
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valamilyen módszeres megközelítése, hogy a 
képzés egyszerű és gyors legyen. 

A hatékonyság növelése még nagyobb mér- 
tékben igényelte a módszerességet. Ahhoz, 
hogy egy program munkaidőigényét meg 
lehessen becsülni, fontos tudni, hogy hogyan 
készül el a program. Egyénieskedésre itt már 
nem sok lehetőség adódott. 

Végül azt is meg kell említeni, hogy a prog- 
ramok is termékekké léptek elő és megítélé- 
sükben ugyanolyan szempontok érvényesül- 
tek, mint egy autónál vagy mosógépnél. Ne- 
vezetesen az, hogy egy program mennyire 
megbízható (minden előrelátható körülmény 
között az elvárásoknak megfelelően működik), 
egyszerűen karbantartható-e, jól dokumen- 
tált-e, bővíthető-e és így tovább. Verseny- 
képes, megbízható terméket a programozás 
terén is csak megalapozott módszerekkel lehet 
készíteni. 

Ez a szükségszerűség vezetett a programo- 
zási módszerek kialakulásához és bevezetésé- 
hez. 

Ne felejtsük el, hogy az itt leírt ún. profi 
környezetben általában nagy programok vagy 


. található az Aszalós-Erki: 


sok programból álló programrendszerek ké- 
szülnek nemegyszer több emberévnyi ráfordí- 
tással. Ilyen körülmények között egy progra- 
mozási módszer alkalmazása áttekinthetőbbé 
teszi a programok készítését, a ráfordítási 
időt csökkenti és a programok megbízható- 
ságát pedig növeli. 

Nyilvánvaló, hogy más szempontok vezé- 
relnek egy számítástechnikai szempontból 
laikust, aki hobbicélokra vesz magának és 
gyerekeinek egy számítógépet. Teljesen ért- 
hető, hogy ők nem akarnak sok időt rászánni 
a számítógép felhasználására való felkészül- 
lésre és nem kívánnak még elmélettel is fog- 
lalkozni, amikor ott a gép és bármikor od. 
ülhetnek hozzá gyakorolni. Aki a számító- 
gépet hobbicélokra használja, nem ír hosszú, 
bonyolult programokat és tulajdonképpen az 
sem számít, hogy egy program 1 nap alatt 
vagy egy hét alatt készül el. Ezek szerint a 
nem profi programozáshoz nem kell mód- 
szer? Vagy mégis kell? 

Erre az tud pozitív választ adni, aki már 
próbált előzetes átgondolás (terv) nélkül 
programot közvetlenül begépelni. A rengeteg 
zsákutca, a kudarcok, a végül is hibásan mű- 
ködő program sok kínt okoz, amit mindenki 
szeretne elkerülni. Ezért mégis javasoljuk 
valamilyen egyszerű módszer alkalmazását. 
A TV-BASIC tanfolyamnak ez az egyik célja. 

A programok tervezéséhez sokféle mód- 
szer, jelölésrendszer használható. Kezdetben . 
és még ma is igen gyakran folyamatábra se- 
gítségével tervezték a programokat. A folya- 
matábra segíti a feladat megoldási algoritmu- 
sának átgondolását, de nagy programok ese- 
tén, önmagában nehezen kezelhető. Az igazság- 
hoz tartozik, hogy úgynevezett , strukturált" 
folyamatábrával"is lehet tiszta szerkezetű, át- 
tekinthető programot készíteni. 

Napjainkban a strukturált programtervezés, 
a moduláris programozás meglehetősen gyak- 
ran említett, divatos fogalmak. Számos cikk, 
könyv jelent meg ezekről a témakörökről. 

Magyarországon talán a legelterjedtebb a 
Jackson-féle strukturált  programtervezési 
módszer. Erről két könyv is megjelent, 1982- 
ben, a Tudományszervezési és Informatikai 
Intézet kiadásában  Herneczki-Orbán: A 
Jackson-féle programtervezési módszer, 1983- 
ban a SZÁMALK kiadásában Mérey András: 
Programtervezés Jackson-módszerrel c. köny- 
ve. 

Az elsőt kezdő programozók is könnyen 
használhatják (illetve használhatnák, ha kap- 
ható lenne), mert. a feladatmegoldásokat rész- 
letesen mutatja be a könyv, , szakácskönyv" 
módjára. A második valamivel több alap- 
ismeretet feltételező, tudományos igényű ol- 
vasmány. A 

A tv-sorozathoz készült könyv feladatmeg- 
oldásai modulszerkezetűek, ahol az egyes 
modulok kidolgozása, tervezése folyamtábra 
segítségével készült. Így elkerülhető a folya- 
matábrás tervezésnek az a hátránya, hogy na- 
gyobb programoknál nehezen áttekinthető, 
mert egy modul mérete nem haladja meg azt 
a szintet, ahol már átláthatatlan az ábra. 
Egyébként bármely tervezési módszernél, ha 
hibát találunk, hasznosabb eldobni egy papírt, 
újragondolni, újratervezni a programot vagy 
programrészt, mint toldozni-foltozni. Tartsuk 
tiszteletben memóriánk korlátait! 

Az itt említett módszereken kívül számos 
más módszer is hásználatos. Bodor-Gerő: 
A BASIC programozás technikája c. könyvben 
például más jelölésrendszer használatára lát- 
hatnak példát. A leggyakrabban használt 
tervezési módszerek leírása egyébként meg- 
Bevezetés a struk- 
turált programozásba c. SZÁMOK-kiad- 
ványban. 
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Számítástechnika 


Mit fejez ki a , kifejezés"? 


Gondolatok a BASIC programozási nyelv kifejezéseivel és értékadó utasításával 


kapcsolatban 


Elég nehéz lenne erre valamiféle szabatos meg- 
határozást találni ezért ne bajlódjunk most 
az értelmezéssel. Legokosabb, ha a tapaszta- 
latainkhoz, iskolai emlékeinkhez fordulunk. 
Annak idején számtani kifejezésnek neveztük 
például az ilyen alakú felírásokat: 5,3--6 2; 
(25 --0,3):52; (7,5—4 4) :9,2; SZ ESES stb 

§ 2 közé TE TES. ESZE 1 
Ezekben - mint látjuk - kizárólag számok, 


alapműveleti jelek és hatványozás (itt négy- I. 


zetre emelés) szerepel. Az egyes példákban a 
kijelölt műveletek minden további nélkül 
végrehajthatók és eredményül megkapjuk a 
számtani kifejezéseinknek megfelelő egyetlen 
számértékét. A számtani kifejezéseket a prog- 
ramnyelvek is le tudják írni, alakjuk azonban 
módosul, nem olyan, mint amit az általános 
iskoláink számtanóráin tanítanak. A példa- 
ként felsorolt számtani kifejezések a BASIC- 
ben ilyenek : 


5.3-E6.2 ; (2.5-£.3)k512 ; (7.3—4.4)/9.2 ; 
(6.127—2.5) (4.3 7.4) 


Nyilván fölmerül a kérdés, miért volt szükség 
a megszokott jelölések ilyen átalakítására. 
Erre több okot kell felsorolnunk. 


1. Az 1940-es évek vége felé a tizedestörtek 
egész és tört részének szétválasztására kétféle 
jelölés volt elterjedve a világon. Pontot hasz- 
náltak erre az angolszász országokban, vesz- 
szőt sok más európai országban. Magyar- 
országon ebben az időszakban rendelték el és 
szabványosították, hogy az addig használt 
pontot a tizedesvesszővel cseréljék fel. Ang- 
liában és az amerikai kontinensen viszont 
továbbra is a tizedespont maradt az elfoga- 
dott jelölés. Mondhatná valaki, nem túl lénye- 
ges kérdés ez, és akkoriban senki sem tartotta 
annak. Később mégis fontos következményei 
lettek. 


2. Azokban az országokban, ahol a tize- 
despont volt használatos, a szorzást az X jel 
jelentette, ahol viszont bevezették a tizedes- 
vesszőt, ott a szorzást ponttal jelölték. Ha- 
zánkban azonban a szorzásnak ponttal való 
jelölése már jóval azelőtt elterjedt az iskolák- 
ban, semmint a tizedesvessző bevezetése. Igaz, 
hogy a szorzópontot a sor alsó vonalába kel- 
lett kitenni, míg a tizedes pontot valamivel a 
sor középvonala fölé írták, a pongyola hasz- 
nálat miatt a kettő könnyen keveredett. A fel- 
cseréléssel az írásmód egyértelműsége került 
veszélybe. 


3. Az ötvenes évek elejétől-közepétől kez- 
dődően fejlődtek ki és terjedtek el a kereske- 
delmi forgalomba hozható számítógépek és 
nagyjából ezzel egyidőben az ún. ,, magas 
szintű programnyelvek". A , magas szint" 
nem annyira tudományosságot, mint a fej- 
lettebb szoftverszolgáltatást jelentette, azaz 
arra való törekvést, hogy a programozás nyel- 
ve — amennyire csak technikailag megvalósít- 
ható - hasonlítson arra az írásmódra, amit 
a matematika használ. Miután pedig mind- 
ezen fejlődés és széles körű elterjedés az Egye- 
sült Államokban ment végbe, vált világvi- 


Rovatszerkesztő: HEGYI ISTVÁN 


szonylatban számottevővé, ezért az ott hasz- 
nált számtani jelölések épültek be a program- 
nyelvekbe (FORTRAN, COBOL, BASIC 
stb.). 


4. Mindezek ellenére engedményeket kellett 
tenni a hagyományos jelölésekben, alkalmaz- 
kodni kellett a számítógép sajátos technikai 
lehetőségeihez. A szorzás jele azért lett a X, 
mivel a x jel könnyen összecserélhető lett 
volna az iksz betűvel. Kompromisszumra 
kényszerített az a körülmény is, hogy a nyom- 
tatógépeken, sőt mágnesszalagokon, leme- 
zeken stb. csakis egymás után, egy sorba 
lehetett a jeleket írni. Emiatt a kitevő meg- 
szokott jelölésmódja, az alsó és felső indexek 
használata, a törtvonal fölötte számlálóval, 
alatta nevezővel, a négyzetgyök jele és sok 
egyéb bevezetett szimbolika kivihetetlenné 
vált. Így lett tehát a hatványozás jele pl. a 
t (FORTRAN-ban 3k 3), az osztás és tört- 
vonal jele / az SOR(A) ill. egyes program- 
nyelvekben az SORT(A) a négyzetgyökvonás 
jelölése, ahol A a gyökjel alatti kifejezést 
jelenti (maga a rövidítés az angol sguareroot — 
négyzetgyök szó betűiből készült). 


Így tehát meg kellett hogy honosodjanak 
a számítógépek felhasználóinak körében az 
új jelölésmódok. Ezek azonban további kö- 


" vetkezményekkel jártak: az új jelek, bizonyos 


szabályok előírása nélkül nem voltak egy- 
értelműen használhatók. Az első ilyen szabály 
neve elsőbbségi (precedencia) szabály, mely a 
következőket tartalmazza : 

—-a zárójel nélküli kifejezésekben sorrend- 
ben először a hatványozási, ezt követőleg 
a szorzási és osztási, legvégül pedig az össze- 
adási és kivonási műveleteket hajtja végre 
a számítógép: 

Pl. az 512x3-7-2X4 kifejezés lépésenkénti 
végrehajtása így történik: 25 k 37-24, majd 
75-7-8, végül 83. 


— ha zárójel is van a kifejezésben, akkor 
először a zárójelen belüli rész kerül kiszámí- 
tásra, az előző bekezdésben foglalt szabály 
szerint; ha több zárójel van egymásba ágyaz- 
va, akkor a legbelső zárójelpárok közt álló 
kifejezésrészek kerülnek először sorra, majd 
kifelé haladva oldja fel a gép a zárójelpárokat. 

Pl. a —(332x(5—2t(241))3-14/(33-7)) 
kifejezés lépésenkénti kiszámítása ilyen: 
—(3-71-2k(5—213)-3-14/(371-7) ezután —(3-- 
42k(5—8)1-14/681-7)), majd —(34-2k(—3) 


--14/18) ezt követőleg —(3—6-1.4) és 


—(—I1.6), végül 1.6. 


A második az ún. , balról jobbra" szabály. 
Mint láttuk, a 3 és /, ill. a 4 és — műveletek 
a sorrend szempontjából egyenrangúak. 
Emiatt elő kell írnunk, hogy ezeket az egyen- 
rangú műveleteket, ha egymást követve szere- 
pelnek, akkor balról jobbfelé haladó sorrend- 
ben hajtsa végre a számítógép. Pl. 33k 5/2k 7/6 
lépésenkénti kiszámítása : 15/2k7/6; 7.5 7/6; 
52.5/6; 8.75. Ha ezt a szabályt nem tarta- 
nánk be, egészen más, hibás eredményt is 
kaphatnánk. (Hibapélda, melyben először a 
szorzásokat azután az osztásokat végezzük 
el: 3x5/2x7/6; 15/14/6; 1.07143/6; 0.1786.) 
Látjuk tehát, hogy a programnyelv számtani 
(és algebrai) kifejezései csak elsőbbségi és 
a balról jobbra szabályokkal együtt alkotnak 
egyértelmű, félreérthetetlen jelölésmódot. 


Az iskolában tanult algebrai kifejezés -— 
mint emlékeinkből fölidézhető -— betűket is 
2a7-3b 

5c-d 
ben a betűk előre meg nem határozott 
értékű számokat jelképeznek. Emiatt az al- 
gebrai kifejezés csakis akkor számítható ki, 
ha a betűknek előbb számértéket adunk. Ha ki- 
jelentjük pl., hogy a—1, b—2, c—0,5 és d—3, 
akkor algebrai kifejezésünkbe behelyettesít- 
hetők ezek a számok és mint számtani kifeje- 
zés kiszámíthatóvá válik, helyettesítési értéke: 
1,0666... Miután az a, b, c és d változók 
értékét végtelen sokféleképpen adhatjuk meg, 
világos, hogy az algebrai kifejezéseknek is 
végtelen sokféle helyettesítési értéke lehet. 
A BASIC programnyelvben ugyanez az al- 
gebrai kifejezés ilyen: (2XA-1-3:k B)/(5xxCok 
xD). A szereplő betűket azonosítóknak szok- 
tuk nevezni, de akadnak, akik megmaradtak 
a , változó" elnevezésnél. Mármost kérdés, 
hogy van-e valami lényeges különbség a prog- 
ramnyelvbéli azonosító és az algebrai változó 
közt? A számítógép tára olyan, mint egy 
hatalmas fiókos szekrény, rengeteg fiókkal. 
A fiókoknak, szaknyelven rekeszeknek sor- 
számuk van, hogy megnevezhetők ill. meg- 
találhatók legyenek. Amikor a program vala- 
melyik kifejezésben az Á, B, C, ill. D azonosí- 
tókat használja, a tárban hozzákapcsolódnak 
ezekhez bizonyos  rekeszszámok: mintha 
egy szótárat képzelnénk el A— 18030 B— 
18036 stb. Hogy hányas számú rekesz tarto- 
zik a szóban forgó azonosítókhoz, azt nem a 
programozó hanem a számítógépbe épített 
rendszer dönti el. Többnyire a program uta- 
sításait tartalmazó rekeszeket követő tár- 
részben helyezkednek el az azonosítóknak 
megfelelő rekeszek. Arról, hogy az azonosítók 
milyen módon kaphatnak értéket az adások- 
ban már volt szó (és lesz is még). Erre szol- 
gálhatnak pl. az INPUT, a READ utasítá- 
sok. Az azonosítóknak adott értékek a nekik 
megfelelő rekeszekben helyezkednek el és 
amikor a kifejezés számítása kerül végrehaj- 
tásra, a vezérmű a rekeszekből veszi elő az 
azonosítók éppen ott található (aktuális) ér- 


tartalmaz. Pl. az algebrai kifejezés- 
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tékeit. (Kezdő programozóknál gyakori hiba, 
hogy elfelejtenek gondoskodni arról, hogy az 
azonosítók időben, tehát még a felhasználá- 
suk előtt megkapják a szükséges értékeket.) 
Akár számtani, akár algebrai kifejezés szere- 
pel programunkban, a műveletek elvégzése 
után a kapott eredmény a gép számolóművé- 
nek egyik fontos rekeszében,: az akkumulá- 
torban jelenik meg. Ott azonban nem marad- 
hat, mert egy következő számítás kitörölheti 
onnan és akkor elvész részünkre. Emiatt ki 
kell ezt az értéket mentenünk onnan. Erre 
jó az értékadó utasítás. A LET X—(2XxA13 
XB/(5XCkxD) utasítás aktuális eredmé- 
nyünket kimenti az X-el jelölt rekeszbe. 
Egyes BASIC , nyelvjárásokban" a LET el is 
hagyható. Emiatt is, de a tisztánlátás okából 
gondoljuk végig, mit is jelent most az egyen- 
lőség jele. Az iskolában azt tanultuk, hogy pl. 
a téglalap területét számító képlet t—a-b 
végeredményben így is írható: a:b—t, vagy 
akár így is: t—a-b—0. Ezeket egyenértékű 
jelölésmódoknak tartottuk. A programnyel- 
vekben azonban ez messze nincs így. Az egyen- 
lőségjel jobb oldalán álló kifejezés sorrend- 
ben előbb kerül kiszámításra, ezt követőleg 
kap értéket a bal oldalon álló azonosító. 
Tehát a bal oldalon csakis egy azonosító 
állhat. Ezért pl. míg a T—A:xB hibátlan 
értékadó utasítás, addig az AxB-—T írásmód 
hibás, megengedhetetlen. 


A programnyelvekben a kifejezések azono- 
sítói nemcsak számokat tartalmazhatnak, 
hanem betűket és más írásjeleket, ún. karak- 
tereket. A gépben minden, a billentyűzeten 
látható jelnek megfelel egy kód. A számje- 
gyeknek is van ilyen kódja, és tudnunk kell, 
hogy a számjegyek kódjai nem alkalmasak 
arra, hogy úgy számoljunk velük, mintha 
azok maguk a számok lennének. (Tehát pl. 
a kettes szám és a hármas szám kódjainak 
az összege nem adja az ötös szám kódját.) 
Ezért tehát a számjegyek legalább kétféle 
alakban vannak a gépben: karakterformában 
és számtanilag használható formában. Ha az 
azonosító karaktert vagy karaktersorozatot, 
szöveget, ill. idegen szóval stringet tartalmaz, 
akkor megkülönböztetésül a $ jelet írjuk 
utána. (A régebbi ABC—80 gépeken O je- 
let használtak.) Természetesen a szövégekkel 
nem lehet számtani műveleteket végezni. 
Az egyetlen számtani műveleti jel, amit szö- 
vegek közt használunk, a -- jel, aminek azon- 
ban itt a számtanitól eltérő értelme van. 
Hogy jól lássuk a különbséget, két példát 
mutatunk meg: 


10 LET A—123 

20 LET B—456 

30 PRINT A--B 
program végrehajtása nyomán a képernyőn 
az 579 szám, az összeg jelenik meg. Ezzel 
szemben a 

10 LET A$—"1237 

29 LET B$—"4567 

30 PRINT A$-1-B$ 


eredménye a képernyőn az 123456 szám. 
Ezt a string-műveletet szokás konkatenációnak 
nevezni. 


ADA-WINTER PÉTER 
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Helye 


József Attila 
Művelődési Központ 
6500 Baja, 
Vörösmarty u. 5. 


Mikszáth Kálmán 
Művelődési Központ 
2660 Balassagyarmat, 
Bajcsy-Zsilinszky 

út 6. 


Józsefvárosi 
Művelődési Ház 
1084 Budapest, 
Déri Miksa u. 3. 


XVIII—XIX. ker. 
KIOSZ 
Batthyány u. 78/A 


Geisler Eta Ált. 
Iskola 

1162 Budapest, 
Hősök tere 1. 


Kölcsey Ferenc 
Művelődési Központ 
4020 Debrecen, 
Hunyadi út 1—3. 


Dózsa MGTSZ 
Karcsa, 
3963 Karcsa 


Egressy Béni Műv. 
Közp. és Könyvtár 
3700 Kazincbarcika, 
Fő tér 5. 


Kecskemét, 
Külső-Szegedi út 136. 
6000 


Városi Kulturális 
Központ 

8700 Marcali, 
Széchenyi u. 3. 


Központ 
5400 Mezőtúr, 
Kossuth út 2. 


VOLÁN Ifj. Kiub 


Mezőtúr, 
Kálvin tér 1. 
5400 


Ady Endre 
Gimnázium 
7500 Nagyatád 


Nyírbátori Művelő- 
dési Központ 

4300 Nyírbátor, 
Ifjúság u. 5. 


Művelődési Ház 
3743 Ormosbánya, 
Sztahanov tér 1. 


Művelődési Központ 
4150 Püspökladány, 
Bajcsy-Zs. u. 2/2. 


3950 Sárospatak, 
Rákóczi u. 1. 


Klubvezető 
Wilhelm József 
Vajda László 


Mészáros Mária 


Szarvas Zoltán 


Kanyó Ferencné 


Kun László 


Egyed Zoltán 


Koczok Tamásné 
Groska András 
Francz Vilmos 


Majoros László 


Bartha/Gné 


Horziczki Imre 


Békési Károly 


Gombai Győző 


Lévai Albert 


Nyíri Lajos 


Knepp Ottó 


Kardos István 
Marsso Béla 


Bertók Csaba 


Viszoczky Sándor 
Lukács Gabriella 


Papp Sándor 


Telefonszám 


12-059 
11-033 


39 


338-353 


280-238 
Csak klub- 
napon! 


13-977/14 
13-977/28 
19-638 


11, 14 


11-758 
10-413 


22-233/117 


384 
384 


12 vagy 169 


327 hivatal 
523 magán 


29 
97 


62 


314 
33 (Műv. K.) 


11-286/77 
11-286/77 


81 


11-039 
11-720 


AZ ÚJONNAN ALAKULT 41-KLUBOK LISTÁJA 


Látogatási idő 


Hétfő 16—20 
Csütörtök 16-—20 


Minden nap 13—20 
Kedd 17—19 
Csütörtök 17—19 
Szombat 9—13 
Oktatás: 11—12.30 
Péntek 

15—16: BASIC 
oktatás. 


16—17.30: gyakorlás, 
játék 


Számítógép típusa 


Commodore 64 


HT 
Commodore 64 
HT 1080Z 


Géppel rendelkezők 
részére konzultáció 


T1I—99/99/4A , ZX 81, 
Timex, Primo, 

ZX Spectrum, C-20, 
C-64, VZ 200 


Sinclair ZX 81 


Tanfolyam: 
Hétfő 
Szerda 
Baráti kör: 


16—19 
15—17 


Márc. 1-től BASIC 
vizsgára felkészítő 
tanfolyam indul 


Csak vállalati 
dolgozók részére 


Hétfő 17.30—21.00 


Commodore VIC 20 


Szerda 17.30—21.00 
Péntek 17.30—21.00 


Szerda 16—19 


Csütörtök 17—20 


Hétfő 17—19 gimn. 
Csüt. 16—18 gim. 
14—19 Műv. 


8—21 
Szerda 8—21 
Péntek 8—21 
8—20 
ör. 8—20 


előzetes bejelentésre 


Hétfő 18—20 
Péntek 18—20 
Szombat 10—13 


Hétfő 15—18 
Szerda 15—18 
Péntek 15—18 


Szerda 17—20.30 
Szombat 9—12 


SLK 80, Sinclair, 
Spectrum, HT 10807 
Commodore 64, 
Primo 


Kedd 13.30—16.30 


AGRINFO 102 
(64K 7-4 floppy) 
Primo 


Commodore 64 


MEZŐGÉP Vállalat 


C2N kazettás egység 


Városi Művelődési 


HT 1080Z 
Primo 64 
HOMELAB 


ZX Spectrum 16 K 


gép 


II. Rákóczi Ferenc 

Művelődési Központ 
4320 Nagykálló, 
Lenin u. 1. 


PRIMO A—48 


PRIMO 


HT 1080 Z 


Commodore VC 20 


Rákóczi Gimnázium 


A Művelődés Háza 


3950 Sárospatak 
Eötvös u. 6. 


Dél-balatoni 
Kulturális Központ 
8600 Siófok, 

Fő tér 2. 


Művelődési Ház 
6771 Szeged-Szőreg, 
Magyar u. 14. 


Művelődési Központ 
8790 Zalaszentgrót 


Számítógépes 
Rendszereket 
Értékesítő Vállalat 
SZÁMREND 
1125 Budapest, 
Szarvas G. u. 58/60. 


Róka László 


Kiss Ferenc 


Kollár József 


Farkas Imre 


Déri András 


11-811 


11-855 


11-855 


12-060/755 
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Commodore 64 
TAP 34 


A szubrutinok alkalmazása lehetővé teszi, 
hogy a programon belül az azonos művelet- 
sorokat csak egyszer kódoljuk és a végrehaj- 
tási helyeken ezeket csak hívni kelljen. A szub- 
rutinok alkalmazásának módja a Tv-BASIC 
könyv 6. és 7. fejezetében megtalálható. 


Felmerül a kérdés, hogy mi a különbség a 
szubrutin és a ciklikusan végrehajtott művele- 
tek között. Először is, egy szubrutint is lehet 
ciklikusan hívni, vagyis egy ciklust szubrutin- 
nal is lehet kódolni. De nem ez a jellemző. 
Szubrutint általában akkor alkalmazunk, ha a 
program különböző pontjain kell végrehajtani 
ugyanazt a műveletet. Sokféle alkalmazási 
lehetőségével a tanfolyam során még sokszor 
találkozni fogunk. Itt két példát mutatunk be a 
könyv feladatainak kiegészítéseként. 


Nézzük végig mégegyszer a már ismert prog- 
ramot, amely napi középhőmérsékletet számít 
ki és rajzol. A különböző hosszúságú csillagsor 
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Rovatszerkesztő: HEGYI ISTVÁN 


A szubrutinokról 


kirajzolását a programban négyszer ismétel- 
tük meg eltérő értékekkel. Ezt nyilvánvalóan 
elég egyszer kódolni szubrutinként (1000-1060 
sor), de a hívás előtt egy értékadással meg kell 
adni a kiírni kívánt csillagok számát. 


A program egyes moduljait is lehet szub- 
rutinként kódolni és ezeket egy vezérlő- 
modulból hívni a megfelelő sorrendben. Ala- 
kítsuk át ennek megfelelően a programunkat! 


A program elején helyezkedik el az öt modul 
hívása (70-110 sor). Majd ezután találhatók a 
szubrutinok most már tetszőleges sorrendben. 
A szubrutinok , összekeveredését" a RETURN 
utasítások akadályozzák meg. Figyeljük meg, 
hogy a kiírási szubrutinból újabb szubrutint 
(csillagsorírás) hív a program. Ezt is lehet! 


A 815. sorban a kiírás színét megváltoz- 
tattuk, hogy a középhőmérséklet kiemelkedjen 
a többitől. A színvisszaállítás a 845. sorban 
található. 


Senki sem szereti ugyanazt a dolgot sokszor 
egymás után ugyanúgy megcsinálni. Ezt a 
természetes emberi tulajdonságot a számító- 
gépek és a programnyelvek megalkotói szinte 
kezdettől fogva figyelembe vették és az ismét- 
lődő, unalmas tevékenységek elkerülésére mi- 
nél több eszközt igyekeztek a programozók ke- 
zébe adni. Az egyik legfontosabb a szubrutinok 
használata. Ezért ezzel a témával nemcsak a 
mostani, hanem a következő számban is foglal- 
kozni fogunk. 

Természetesen továbbra is gondolunk azok- 
ra a nézőinkre, olvasóinkra, akinek gondot 
okozott a gyakorlásra kitűzött feladatok meg- 
oldása és persze azokra is, akik saját gondolat- 
menetüket szeretnék ellenőrizni. Egyelőre távol 
a vizsga, puskázni tehát nem tilos. 


A Commodore-on tanulók joggal kérdezik, 
hogy miért nem volt szó eddig ennek a gépnek 
a grafikájáról. A magyarázat, noha a Commo- 
dore igen fejlett grafikai képességekkel rendel- 
kezik, ezek a BASIC-ből csak igen bonyolultan 
érhetők el. Ezért a későbbiekben külön foglal- 
kozunk a Commodore grafikájával. Addig is 
közreadunk néhány egyszerűbb tudnivalót a 
Commodore-on való rajzolás megtanulásához. 


A program listája : 


19 REMHKAREKEEEKEREEYET 
20 REV x 
ZO REMk KÖOZHOME x 
30 FPEM4 k 
50 REMKERHIKEKEKEKEKETK 
FO REMHKEtkK VEZ. MODUL t4tKX 
:REMxr REGG. H.r 
:REMx DELI H. x 
:REMx ESTI H. 2 
: REMk ATLAG 4 
: REMt KIIRAS x 


118 GOSUB 7120 


129 GO TO 11908 

380 REMkr REGGELI HOM. BEOLY. § 

B PRINT"4" 

8 INPUT" REGGELI HOMERSEKLET ": RH 
92 PRINT 

340 RETURN 

498 REMt A DELI HOM. BEOLV. § 

318 INPUT"A DELI HOMERSEKLET — "; OH 
4209 FRINT 

RETURN 


50900 REMr AZ ESTI HOM. BEOLV. § 

5109 INPUT"AZ ESTI HOMERSEKLET — ";7EH 
520 FRINT 

:29 RETURN 

550 AH-(RHtDHtEH)/3 

5E92 RETURN 

€58 REMk ATLAGSZAMITAS X 

E60 AH-(RHtDHtEHD/Z3 

70 RETURN 


19 REMk A KIIRAS x 


7 ; 10922 
768 FRINT"A DELI HOMERSEKLET: ";DH 


aú áj 
0 wo 
90 


TI HOMERSEKLET: ";EH 


[ú 
o 
o 


SH-EH 

GOSUB 1992 

PRINT"f" 

PRINT"A NAPI KOZEP HOMERSEKLET: ";AH 
SH-AH 

GSOSUB 1900 
PRINT"M" 
RETURN 

18009 REMk$ik CSILL. 
19819 PRINT 

1020 FOR 1-1 TO SH 
1830 PRINT"A4"; 
19409 NEXT I 

1950 PRINT: PRINT 
10968 RETURN 

1198 END 

READY. 


Próbáljuk meg a hőmérsékletértékek beol- 
vasását is átalakítani úgy, hogy minden beolva- 


sást egy szubrutinnal végezzünk el! És 
DR. KOCSIS ANDRÁS 
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új 
DB (TV ke va 
HOG U G 


00 wWű 


(b co 


0 ü 
0 b 
90 


SUBR. kit 


Puskázzon 
— segítünk! 


Az ötödik adás végén szereplő 
feladat — az ON GOTO utasítás 
alkalmazására - olyan program 
elkészítése, amely a begépelt leg- 
feljebb háromjegyű számot szöve- 
ges formában írja ki a képernyő- 
re. A program esetleg ebben a 
formájában is, de továbbfejlesztve 


18 
za 
s: A: IFR-BTHEMEMNI 
za 


mindenképpen alkalmas arra: 
hogy gyerekek a számok olvasását 
gyakorolják vele. (Ötletét egyéb- 
ként a Rádiótechnika c. lapból 
vettük át.) 


A program listája Commodore- 
64 számítógépre: 


PRIMT"THEEKESZAMOK SZÖVEGES KIIRRSRAXHEKE" 
IMFPUT" BITTEKEREM RZ ATIRRNDO HRROMJEGYU SZAMOT" 


IF AZSZITHEMFRINT"TUL MAGY":GHDOTOZB 


48 T-A-IMT(A/18894198"E-T-INT(T/199£18 


39 PRIMT" AHER SZAM LEIRVA :" 


4 


SZAKKÖRÖKNEK! 


FÉNYÚJSÁG" 
Készítsen olyan programot, amely a képernyő elejére írt 9 karakter 
hosszú szöveget (FÉNYÚJSÁG) a képernyő közepén jobbról 
balra keresztülfuttatja. 
A 3DCOH-3DFFH képernyősort fogják erre használni. Elő- 
ször átírjuk a 9 karaktert az LDIR utasítással: 
LD HL, 3COO 
LD DE,3DF6 
LD BC,0009 
LDIR 
Majd a sort balra scrollozzuk 64-szer : 
(A szöveghez hozzávesszük a következő sor első karakterét, 
hogy szóközt , húzzon maga után", ne pedig az utolsó betűjét. 


:F6-9-FF 


6A OM A/1AA GOTOL1B. 128, 138. 148. 159, 168, 178. 189. 198 Így BC-be a sorhossznál eggyeltőbet —.65-öttöltánt.) 
189 GOTO195 3 LD A 40 
119 FPRINT"EGYSZAZ" ; : GOTD135 , 
128 PRIMT"KETSZRZ" ; : GOTO195 K LD DE, 3DCO 
138 PRINT"HAROMSZAZ" ; : GOTO195 LD HL, 3DCL 
149 PRINT"MEGYSZRZ" ; : GOTO195 LD BC.0041 
158 FRIMT"OTSZRZ" ; : GOTO195 , 
168 PRIHT"HATSZAZ" ; : GOTO155 LDIR 
178 PRINT"HETSZAZ" ; : 5OTO195 DEC A 
198 PRINT"NYOLCSZAZ" ; : SOTO195 JR NZ.K 
199 PRIMT KILEMCSZAZ ; A gépi kódú rutint betöltő és futtató BASIC program : 
SEEM SS TE ÉSESE ESO SZÁZ ÉKISS E VE TSY HSZ] 10 DATA 33.0,60,17,246,61,1,9,0,237,176,62,64,17,192,61,33,193, 
21 HT"TIZ"; 61,1,65,0,237,176,61,32,242,201 
18 PRIHT"TIZ"; ,1,65,0,237,176,61,32,242,201, 
215 IFEZCBOTHENPRINT"EN" ; 20 1—28672 
216 GOTOZSZ 30 READ A:POKELIAIFA — 5201 THEN 1 -I 5-I:GOTO 30 
ezette EZ BAR ogázáy ; 40 CLS:PRINT "FÉNYÚJSÁG" 
FS. Er szett tgááááátánll SK 50 POKE 16526,0:POKE 16527,112:P— USR(0) 
238 PRINT"HARMIHMC" ; : GITOZ55 A futásból lényegében semmit sem látunk. Ennek az az oka, hogy 
248 PRINT" HEGYVEN" ; : GOTOZ95 a program túl gyors. Feladat: lassítsuk! 
250 MESE ee eeij e eTrosas Megoldás: a második LDIR után beírunk egy várakozóciklust 
ms TEÉTeHE TEK u; : GOTOZ35 (ne felejtsük el, hogy a program végén álló relatív ugrás más lesz): 
288 PRINT"HYOLCYAN" ; : GOTOZSS PUSH AF ha 
298 PRIMT"KILEHCYEN"; LD BC,0600 ;várakozási idő 
295 ONEGOTOZIA, ZA, 339. 348, 358. 368. 370. 389, 399 L DEC BC 
388 FRINT".":GOTO 428 
318 PRINT"EGY.":GOTO4AA e. de 
329 PRINT"KETTD. " :GOTO4AA 
338 FRINT"HAROM. " : GOTI4AA JR NSZ 
348 PRIMT"HEGY." :GOTO4AB POP AF 
359 FRINT"OT, ":GOTO4AA kg 8 Benz §3 
389 PRINT"HAT.":GOTO4AB Innen folytatódhat a program. Ennek megfelelően a BASIC 
378 PRINMT"HET, " : GOTO49A program, illetve az assembler lista : 
389 PRINT"NYOLC.":GOTJ4ABA 10 DATA 33,0,60,17,246,61,1,9,0,237,176,62,64,17,192,61,33,193, 
398 FRINT"KILEMC. " ; 61,1.65,0,237,176,245,1,0,6,11,120,177,32.251.241.61.32,232.201 
488 FRINT"8" : GOTOZB 20 1 — 28672 
RERDY. 30 READ A:POKE I A:IFA —- 201 THENI-I- I :GOTO 30 


A működés rövid magyarázata: 
10. sor: A program címének ki- 
írása a képernyőre. 

20. sor: Az átírandó szám bevitele; 
ha nullát gépelünk be, a program 
futása megáll, egyébként újabb 
szám beírását várja. 

30. sor: Megvizsgálja, hogy a be- 
vitt szám legfeijebb háromjegyű-e. 
40. sor: Az INT függvény hatása: 
az utána zárójelben szereplő 
szam vagy kifejezés egész részét 
veszi. 

Ha egy konkrét példán utánaszá- 
molunk, rájöhetünk, hogy a T 
értéke az a szám lesz, amit a 
begépelt számból a százasok el- 
hagyásával kapunk. Ez pedig a 
számban szereplő egyesek száma. 
60—-190. sor: Az ON GOTO uta- 
sítás tulajdonságait kihasználva 


kiírjuk a százasok számát betűvel." 


Ha A/100 egészrésze nulla, tehát 
nincsenek százasok, tovább ugor- 


( ÖTLET 85 e Március 7.  ) 


hatunk. Gondoljunk utána a 
PRINT utasításban található pon- 
tosvessző szerepének! 


195-290. sor: Itt a tízesek szöve- 
ges kiírása történik hasonló mód- 
szerrel, mint az előbb. Érdekesség, 
hogy a magyar nyelv tulajdonsá- 
gait is figyelembe kell venni. 
(200-226. sor. Nem elegendő a 
TIZ és a HUSZ automatikus ki- 
írása. Pl. kétszáztíz; de a kétszáz- 
tíz en három) 

295-390. Az egyesek kiírása. 

400. sor: Visszatérünk a program 
elejére a következő szám beolva- 
sásához. 

A PRINT utasításokban talál - 
ható grafikus jelek a Commodore 
gép ún. kurzorvezérlő karakterei. 
Hatásukra történik meg a képer- 
nyő törlése, a soremelés, új sor 
kezdése stb. 


HÉT 


Met ESSEN NZSEtZEZte———.e—..e.—e.É..vvy.e,ÁKv,tGAmyEZÜüTTKTmtrtttagmTTTTrtmtmmTTTTtttATATKTEETEETERTtmtttrTATETTTTETETTETTKKTTTAETETüEüüTERmymymügymgmmmmmmemmmmmerrmrürtlrüluk 


40 CLS: ? "FÉNYÚJSÁG" 
50 POKE 16526,0:POKE 16527,112:P-- USR (0) 


LD HL,3C00 ZA 100. 3€ 
LD DE,3DF6 11 F6 3D 
LD BC,0009 01 09 00 
LDIR ED BO 
LD A,40 3E 40 
K LD DE, 3DCO Él Co3D 
LD HL,3DCI 24 CT 3D 
LD BC,0041 01 41 00 
LDIR ED BO 
PUSH AF ES 
LD BC.0600 01 00 06 
I. DEC BE OB 
LD AB 78 
OR C BI 
IR NSZ LG 20. FB 
POP AF EI 
DEC A 3D 
JR NZ.K 20 E8 
RET (s) 


Feladat: írjuk át úgy a programot, hogy a kiírandó szöveg tetsző- 
leges adott helyen van a memóriában. 


sál 


BASIC f 


" uk 


.. 
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Gyakorló feladatok 


Egy fetadat a ciklusok témaköréből! TV- 
BASIC könyv 165. oldaláról (3. feladat). 
Olyan programokat kell írni, amely egy 10 
évig működő beruházás hozamát számítja ki 
akkor, ha a beruházásból származó éves jöve- 
delem (J) 10 000-20 000 Ft között változhat 
(1000 Ft-os lépésekben), az üzemeltetési (fenn- 
tartási költség) (U) pedig 3000-5000 Ft kö- 
zötti értékeket vehet fel (500 Ft-os lépésekben) 
és az érvényben levő kamatláb pedig 6, 7 és 


876 lehet. Maga a hozam az alábbi képlet 
szerint számítható ki: 
(13-K)N—1 
H — (J—U) KI EION 
ahol 
H — a hozam, 
J — éves jövedelem, 
U — üzemeltetési költség, 
K — kamatláb, 
N — élettartam (10 év). 


Arra vagyunk kíváncsiak, hogy milyen éves 
jövedelem, üzemeltetési költség és kamatláb 
emellett kapunk 10 év alatt 300 000 Ft hoza- 


mot. A kiszámítás alapelve az, hogy az egyes 
időszakok jövedelmeit és költségeit a kamat- 
láb segítségével visszaszámítjuk a beruházás 
kezdeti (mai) időpontjára. Vagyis azt keressük, 
hogy mennyit ér ma egy 5 év múlva befolyó 
10000 Ft-os jövedelem. Erre az a válasz, 
hogy annyit ér, amennyi pénzt ma be kell 
tenni az OTP-be, hogy pl. 7945-os kamatláb 
mellett 5 év múlva 10000 Ft-ot kapjunk az 
OTP-től. 

A teljes hozam kiszámításának is ez az elve, 
és a megadott képlet (diszkontálás) alapján 
számítja ki a hozamot. 

A feladat megoldásához egy olyan progra- 
mot kell írni, amely minden lehetséges jövede- 
lem (J), üzemeltetési költség (U) és kamatláb 
mellett kiszámítja a képlet szerinti hozamot, 
és ha ez nagyobb, mint 300 000 Ft, akkor a 
gép írja ki az összes adatot (J, U, K), hogy 
tudjuk, milyen feltételek mellett érhető el a 
kitűzött cél. 

A hozamot ki kell számítani a háromféle 
kamatértéknél (6, 7, 875). Kézenfekvő, hogy 


ezt az egy FOR, NEXT típusú ciklusművelet- 
tel kódoljuk. Emellett ki kell számítani 3000 
és 5000 Ft közötti üzemeltetési költségek ese- 
tén is. Ezt is ciklusban lehet elvégezni. És mi- 
vel az a cél, hogy minden variánst végig ve- 
gyünk (minden kamatláb, minden üzemelte- 
tési költséggel, ezért az előbbi ciklust az 
utóbbiba bele kell tenni, és így elérjük a 
célunkat. Ugyanez vonatkozik a jövedelemre 
is. Végül is három ciklusváltozónk van, és 
ezek minden lehetséges előfordulási variánsai- 
nál ki kell számítani a hozamot. Ezt úgy érjük 
el, ha a H képletet egy 3 változós ciklusban 
számítjuk ki. 

A ciklusmag a képlet kiszámításából áll, 
és egy kiírást is tartalmaz abban az esetben, 
ha a hozam meghaladja a 300 000 Ft-ot. 

Ügyeljünk arra, hogy a kamatlábat tizedes- 
tört alakban kell beírni (130. sor). 


Egy gyakorlati tanácsot is adunk. Ha a 
program kiírja egy kedvező beruházás ada- 
tait, rögtön továbbmenne és el se tudnánk 
olvasni. Ezért a képletet egy INPUT utasítás- 
sal meg kell állítani. Amíg nem gépelünk be 
valamit, a program áll. Begépelés után a prog- 
ram folytatódik. 


Ezzel a program már elkészült, a kód meg- 
írható. Ha lefuttatjuk, azt látjuk, hogy nem ír 
ki semmit. Nyilvánvalóan azért, mert egyik 
variáns sem éri el a 300 000 Ft hozamot. 


Legyünk kevésbé igényesek, és elégedjünk 
meg 250000 Ft-os hozammal, és akkor is 
futtassuk le a programot. Így már kapunk 
eredményt. Az alább látható listát is már 
ennek megfelelően készítettük el. 


A program elég rövid, de gondoljuk meg, 
hogy 11-5.3 — 165 variánst számol ki. Meny- 
nyi időbe telne ez, ha a számítást kézzel végez- 
nénk el. Ezen a feladaton jól látszik, hogy mi- 
lyen segítséget tud nyújtani a munkához a 
számítógép. 

DR. K. A. 


19 REMktkkikkkkttkkkikik 


29 REMxk x 
38 REMk HOZAM k 
49 REMk ak 


50 REMitikkikkkikkkrkkkk 

REMkkkkk ALLANDO ADAT kíikki 

N-10 

89 REMktikiki4i JOVEDELEM  NOVELES kikikik 
398 FOR J:-19999 TO 29998 STEF 10900 


1909 REMtikikikkk UZ. KOLTSG NOV. kiíkikik 
119 FOR U-30089 TO 5990 STEP 599 
120 REMkkkkik KÉÁMAT NOV. kikkkik 

139 FOR K-9.9E€ TO 9.08 STEP 0.901 
140 REMkikikkk HOZAM SZAMITAS krikkik 
158 H-((J-U)Jk(CItKIT(N-129/(Kk(IHtKITND 
169 REMikikkikii HOZAM VIZSG kíikkik 

1709 IF H2:-2590900 THEN 199 

189 GO TO 309 

139 PRINT"44" 

200 PRINT: PRINT: PRINT 

2109 PRINT"AZ EVES JOVEDELEM: ";J 
220 PRINT 

2350 PRINT"AZ UZEMELTETESI KOLTSEG: ";U 
240 PRINT 

2508 PRINT"A KAMAT: ";K 

260 PRINT 

270 PRINT"A HOZAM: ";H 

289 PRINT 

2Ss9 INPUT"FOLYTASSAM":AS 

309 REMk IF VEG x 

319 REMkikkik CIKLUSVALT. NOV trkkkik 
320 NEXT K 

330 NEXT U 

348 NEXT J 

3509 END 

READY. 
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Közreadjuk a tv-ben bemutatott középhőmérséklet kiszámító- 
program listáját a saját megoldással való összehasonlításhoz 
(már csak azért is, mivel mai témánkhoz is kapcsolódik) : 


19 REMikkikkkkikkkkkkkkik 


29 REMk xk 
39 REMx KOZHOM xk 
49 REMik xk 


539 REMkkkkikkkkkkkkkkkik 

609 REMkkkikkiki REGGELI HOM kiikik 
70 PRINT"4" 

80 INPUT"REGGELI HOMERSEKLET: 
39 PRINT 

109 IF RHÁ1 OR RH2.4g THEN GO TO 1820 
119 GO TO 160 

120 REMk THEN AG k 

1359 PRINT"HIBAS ERTEK, UJRA KEREM!" 
149 PRINT 

154 GO TO 890 

1609 REMx IF VEG k 

200 REMkikikki DELI HOM kikkik 
219 INPUT"DELI HOMERSEKLET: 
ez09 PRINT 

e39 IF DHÁ1 OR DH24g THEN GO TO 250 
e49 GO TO 390 

259 REMxXx THEN AG x 

360 PRINT"HIBAS ERTEK, UJRA KEREM!" 
370 PRINT 

389 G0 TO 219 

398 REMx IF VEG xk 

499 REMkkkkik ESTI HOMERSEKLET kiki 
429 INPUT"ESTI.HOMERSEKLET: ";EH 

438 PRINT 

448 IF EH-1 OR EH24O THEN 460 

4509 GO TO 500 

460 REMk THEN AG xx 

470 PRINT"HIBAS ERTEK, UJRA KEREM!" 
480 PRINT 

499 GO TO 4e9g 

53009 REMx IF VEG xk 

559 REMkkkkk ÁTLAG kikrkkkk 

569 AH-(RHtDH tEHD/3 

6090 REMkkkkk KIIRAS kiki45$ 

610 PRINT "44" 

620 PRINT"A REGGELI HOFNMERSEKLET: ";RH 
625 PRINT 

6309 FOR I-1 TŰ RH 

6409 PRINT"x"; 

650 NEXT I 

669 PRINT: PRINT 

679 PRINT"A DELI HOMERSEKLET: 
675 PRINT 

689 FOR I-1 TO DH 

E99 PRINT" xx"; 

700 NEXT I 

719 PRINT: PRINT 

7209 PRINT"AZ ESTI HOMERSEKLET: ";EH 
mes PRINT 

7309 FOR I-1 TO EH 

730 PRINT" xx"; 

759 NEXT I 

768 PRINT: PRINT 

809 PRINT"A KÖZÉP HOMERSEKLET: 
8109 PRINT 

seg FOR I-i TO AH 

S309 PRINT" xx"; 

8409 NEXT I 

859 PRINT: PRINT 

886 PRINT" MB ET 

2709 END S 
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"RH 


"; DH 


":DH 


"AH 


Rajzolás C 64 géppel 


Most az olyan, viszonylag egyszerű ábrák megrajzolását mutatjuk be, 
amelyek a billentyűzeten levő grafikus karakterekből összeállíthatók. 
Megjegyezzük, hogy ez a lehetőség a Sinclair számítógépeken is adott. 
Különösebb előtanulmányokat az eljárás nem igényel, kódtáblákat 
nem kell se megtanulni, se használni, mivel a rajzolható karakterek a 
billentyűkön láthatók. Csupán azt kell megjegyezni, hogy a billentyűk 
előlapján a bal oldali grafikus jel a Commodore billentyű, és az adott 
billentyű együttes lenyomásával, a jobb oldali jel pedig a shift billentyű 
lenyomásával jeleníthető meg a képernyőn. Ezenkívül nem árt azt sem 
tudni, hogy a CTRL billentyű és 9-es gomb lenyomása után a jelek 
negatívja jeleníthető meg mindaddig, amíg a CTRL és a 0 billentyűt 
együttesen lenyomjuk. 

Ezekből a karakterekből egyszerű ábrákat megrajzolhatunk. A prob- 
léma csupán az, hogy csak függőleges, vízszintes és 45" dőlésű vonalak 
lehetnek az ábrában. De azért így is elég szórakoztató! Különösen, ha 
azt is figyelembe vesszük, hogy az egyes rajzelemek különböző színek- 
ben is megjeleníthetők (ehhez viszont már a C 64 színtáblázatát hasz- 
nálni kell!) é 

A rajzolás elve az, hogy a megrajzolandó ábrát sorokra bontjuk fel 
(ceruzával és vonalzóval), és az egyes sorokat PRINT utasításban írt 
karakterekkel másoljuk le. A program futásakor a gép az ábrát a kép- 
ernyőre rajzolja. 

Példaként egy kisautót rajzoló 4 soros programot mutatunk be a 
C 64-re: DR. KOCSIS ANDRÁS 


18 REM 
28 REMkkk 
39 REM 
48 X-15 
58 PRINT TAB(XI! —" 
69 PRINT TAB(X)"iá Hi" 


78 PRINT TABÁX2"" éz 


KIS RUTOÓO  kixr 


READY. 


SZAKKÖRÖKNEK! 

Kezdőcíme Kódja (H) 
LD HL,3COO 7000H Zil 09. 3€ 
LD DE,3FFF 7003H iT BF 3E 
LD BCOE 7006H 01 OE 00 
CIKL LDI 7009H ED AO 
DEC DE 7008BH 1B 
DEC DE 700CH 1B 
IP PE CIKL 700DH EA 09 70 
RET 7010H 


A fenti kis program a képernyő elején álló 14 karaktert a képernyő 
utolsó 14 helyére írja ki megfordítva. 

Először megadjuk az LDI-hez szükséges értékeket. A HL regiszter- 
párban azt, hogy honnan, a DE-ben azt, hogy hova, és a BC-ben azt, 
hogy hány byte-ot írunk át. 

Az LDI automatikusan változtatja e három regiszterpárt, és a BC 
tartalmától függően állítja, a P/V flaget. (Ha BC-ben 0 van, akkor 
1-et, ha nem O, akkor 0-t mutat.) 

Mivel visszafelé akarunk kiírni, ezért a DE tartalmát nem növelni, 
hanem csökkenteni kellett volna. Ezért írtuk be a két DEC DE utasí- 
tást. (Az első visszaállítja DE eredeti értékét, a második ezt csökken- 
ti.) Szerencsére a DECDE nem állítja a P/V-t. Az alábbi BASIC-prog- 
ram a 28672(7000H) címtől beírja azt a gépi kódú rutint, kiírja a kép- 
ernyő elejére a , GEZA KEK AZ EG" mondatot, végül meghívja a 
rutint. 

10 DATA 33.0, 60,17,255,63,1,0,14,237,160,27,27,234,9,112,201 

20 15 28672 

30 READ U:POKEITU:IF U — 5.201 THEN I — 13-11 :GOTO 30 
40 CLS:PRINT , GEZA KEK AZ EG" 

50 POKE 16526,0:POKE 16527,112:P — USR (0) 

Az adatokat addig olvassuk, amíg 201-et nem találunk. Ez a RET 
kódja, és másutt nem szerepel. 

Feladat: Írjuk át a rutint úgy, hogy LDI helyett az LDD utasítást 
használja! j d 

Írjuk át úgy, hogy a memóriában tetszőleges adott helyen tárolt (el- 
rejtett) tetszőleges szöveget (rögzített hosszal) megfordítson! 


FRIED KATALIN-JUHÁSZ LEHEL 


Számítástechnika 


9 , 8 J 


li 


! HIINNLKNNI 


j 
! 
Hi 


) 


Rovatszerkesztő: HEGYI ISTVÁN 


Néhány hete türelmet kértünk 
azoktól, akik már a vizsgára gon- 
dolnak. Nos, nem kell tovább 
várni, megkezdődtek a vizsgák 
szervezésének előkészületei. Hi- 
vatalosan is lehet jelentkezni a 
vizsgára. A tudnivalókat a Neu- 
mann János Számítógéptudo- 
mányi Társaság és a Számalk 
közös felhívása tartalmazza. 
Egyheti türelmet kérünk azoktól, 
akik már a függvények témakö- 
rével szeretnének foglalkozni. 
(Nemcsak a számítógép memó- 
riája, hanem a rovat terjedelme 
is véges.) Igéretünkhöz híven a 
szubrutinokról, a felesleges mun- 
ka elkerülésének eszközeiről ol- 
vashatnak ebben a számban, a 
műsor egyik előadójától. 


A szubrutinokról (2.) 


A programozók legfőbb erénye a lustaság — 
szokták mondani ezt a kétes érvényű megálla- 
pítást. Az azonban biztos, hogy senki sem 
szeret fölöslegesen többet dolgozni a kelleté- 
nél, főleg, ha ez a munka ismétlődő, monoton 
és unalmas. Hogy ezt hogyan kerülhetjük el 
a BASIC nyelv által nyújtott lehetőségek ki- 
használásával, erre látunk most példát. 

Eddigi mintaprogramjainkban, hogy azok 
képernyőkezelése, az üzenetek kiíratása szebb, 
tagoltabb legyen, rengeteg argumentum nélküli 
PRINT utasítást használtunk. A már többször 
említett LE-kW átszámító programunk egyik 
ilyen változata a következő: 


19 REM XXxL.E-kWkk 

29 CLS 

39 PRINT "XXKXKKKKKKK" 

áz PRINT "X LE-kW X" 

58 PRINT "XXKKKKKKKKIK" kv. 

69 PRINT : PRINT : PRINT : PRINT : PRINT 
79 INPUT "kerem a loero erteket: ";LO 


89 LET KWsLOXD.736 

99 PRINT LO;" LÖERO" ,KW;" KILOWATT" 
199 PRINT : PRINT 

119 INPUT "Folytassam? ";V8 

129 IF Véim"igen" THEN GO TO 69 

139 STOP 


Ez a program a csillagos fejléc kiíratása után 
öt sort üresen hagy, és itt kérdezi meg az át- 
számítandó értéket. Újabb két üres sor után 
kell döntenünk, hogy akarjuk-e folytatni az 
átszámítást, s ha igen, akkor azt ismét csak 
néhány üres sor megjelenítése után tehetjük 
meg. Így a képernyőnk tagolt lesz, az össze- 
tartozó bekért és kiszámított értékek a többitől 
elkülönítve jelennek meg, de ennek az ára 
néhány PRINT utasítás beírása volt. 


Nem mintha ennek a néhány PRINT-nek 
a beírása olyan megerőltető lenne, de felmerül 
a kérdés: nem lehetne ezt egyszerűbben, ke- 
vesebb irkálással megoldani? Ennél ugyan ko- 
molyabb, de ehhez hasonló feladatok meg- 
oldásához nyújtanak segítséget a szubrutinok: 
ezek olyan önálló programrészek, melyeket az 
általános feladatokat ellátó, gyakran használt 
utasítássorozatokból alakíthatunk ki. 


A BASIC nyelvben ez két utasítással oldható 
meg, ez a GOSUB, és párja, a RETURN. 
A GOSUB ún. szubrutinhívó utasítás hasonlít 
a GOTO-ra, azaz ez is elugratást jelent más 
programsorra. Az utasítások végrehajtása ott 
folytatódik, egészen addig, míg egy RETURN 
utasítást nem talál a számítógép. A RETURN 
visszatérést jelent, és ennek megfelelően hatá- 
sára a vezérlés visszatér, mégpedig a GOSUB 
utáni utasításra. Az előző példánk szubrutinos 
megoldással: 


18 REM ££LE-kuxk 
CLS 


PRIHT "AXZEKEERKEKK" 

PRINT "Xk LE-k4W XX" 

PRINT "XEZEREKEEKK" 

G0O SB 294 

IMPUT "Kerem a loero erteket: 
LET KWsLOXB. 736 

PRINT LO;" LOERO" , KW; " KILOWARTT" 
GO SUB 298 

INPUT "Folytassart ";V$ 

IF vsz"igen" THEN GO TO 69 
STOP 
FRINT : 
RETURN 


ezt 


99 
19a 
119 
129 
139 
299 
219 


PRINT 


A program végrehajtása során a számítógép 
a 60-as sorhoz érve egy szubrutinhívást talál. 
Ennek megfelelően elugrik a 200-as sorra, s 
onnan folytatja a program végrehajtását. 
A 210-es sorban levő RETURN hatására 
visszatér a 70-es sorra, és onnan folytatódik a 
programfutás. A 100-as sorban szereplő 
GOSUB hatására ismét a 200-as sorra ugrik, 


Commodore, vámkezelt 
MPS 802 printert bérbe 
adnék, eladnék. 


Ajánlatokat kérek: 
357-747 i 


s a RETURN-re visszatér a 110-es sorra. 

A 130-as sorban szereplő STOP utasításnak az ! 
a szerepe, hogy véletlenül, azaz hívás(GOSUB) !; 
nélkül ne hajtódjon végre a szubrutin. Ezt a ! 
folyamatot így ábrázolhatjuk: 


10 

20 
50 
ko 


: ao 
: 100 
: A4O 
"140 

AB5Oo 


1. ábra 


A szubrutinok használata bizonyos fokig kö- 
tetlenséget is jelent. A GOSUB-RETURN 
annyival több, mint két GOTO utasítás, hogy 
egy programon belül szubrutinunkat tetszőle- 
gesen sokszor felhasználhatjuk, mivel a RE- 
TURN nem egy konkrétan meghatározott 
programsorra ugrik, hanem mindig a meghívás 
mögötti utasításra. 


A LE-KW program legutolsó változatában 
mindig két üres sor lesz a feliratok között. 
Hogyan javíthatnánk ki ezt úgy, hogy változó 
számú üres sort kaphassunk? Egy utasítás 
vagy utasítássorozat tetszőleges számú végre- 
hajtását ciklussal érhetjük el, ezért itt is ciklust 
szervezünk: 


zak FÜK imi TŰ ni 
219 FRIMNT 
zzz MEXT i 
238 RETLIRH 


és az N változó értékét a ciklus lefutása előtt 
mindig beállítjuk a megfelelő értékre. Itt ez az 
értékbeállítás a szubrutin meghívása előtt tör- 
ténik: 
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19 REM XXLE-kuixxk 
CLS 


39 PRINT "XXXXKKKKKKXKI 
49 PRINT "k LE-kW X" 
59 PRINT "XXXXKKKKKKXK 
55 LET nzs5 
69 GO SUB 288 
70 INPUT "Kerem a loero erteket: 
88 LET KWsLOXB. 736 
99 PRINT LO;" LOÖERŐ" , KW; " KILOWATT" 
593 LET n5sz2 
199 G0 SUB 299 
119 INPUT "Folytassamz "GYE 
129 IF Vöz"igen" THEN GO TO 55 
139 STOP 
299 FOR ími TO n 
218 PRINT 
228 MEXT i 
2389 RETURN 


Ebből a példából is látszik, hogy célszerű a 
szubrutinokat nem csak az adott feladatra, 
hanem egy kicsit többre is alkalmassá tenni. 
Így sokkal gyakrabban, általánosabban fel- 
használható ugyanaz a szubrutin. (Most pl. 
nemcsak három, hanem tetszőleges számú 
üres sort tudunk kiíratni.) Az ilyen , többet 
tudó"? szubrutinoknak mindig a meghívás 
előtt kell megadni, hogy most mit csináljon, és 
erre azokat a változókat használhatjuk fel, 
amely változókat használja a szubrutin. Ezt 
nevezik paraméterátadásnak. A fenti esetben 
azt mondjuk, hogy N a szubrutin bemenő 
paramétere. Az előző szubrutinnak nem volt 
bemenő paramétere. Ha olyan szubrutint 
írunk, amely ennél bonyolultabb, és mondjuk 
valaminek a kiszámítására alkalmas, akkor a 

! végeredmény a szubrutin kimenő paramétere. 
PI. : 


1 LET azZ: LET bszZ: LET cs3 
za ör 3IJE im9 

aa STÜF 

io8 LET dzakbtz 

li KETURH 


Itt A, B, C bemenő, D kimenő paraméter. 


Egy programon belül akárhány szubrutint 
használhatunk. A szubrutinokat tetszőleges 
helyre tehetjük programunkban, csak bizto- 
sítanunk kell, hogy véletlenül ne fusson rájuk 
a vezérlés. Ezt úgy érhetjük el, hogy vigyá- 
zunk, hogy a szubrutin belépési pontja előtti 
utasítás GOTO, RETURN vagy STOP le- 
gyen. (Belépési pontnak hívják azt a helyet 
ahová a GOSUB-bal ugrunk.) A szubrutinok- 
nak nem csak egy be- és egy kilépési pontjuk 
lehet, hanem több is. Szokásos feladatunk egy 
két belépési ponttal rendelkező szubrutinnal: 


18 REM £44LE-kUkk 

28 CLS 

39 PRINT "AEXKEEEREKEKKT 

áz PRIHT "£ LE-kM 0 XK" 

58 PRINT "AREKEREKEKKT 

éa GÜ SE 243 

7A IMPUT "Kerem a logro erteket: "Lo 
39 LET KUWsLO4A. 736 


399 PRINT L0O;" LOERÜ" , KH; " KILOWATT" 
199 Gü SUB 210 


119 INPUT "Folytaszam?t "GYE 
iz IF Vsz"igen" THEN Gü TŰ 64 
13 ZSTÜP 

248 PRIHT : FRIMT : FRIMNT 

219 PRINT : PRINT 

228 RETURN 


Most, hogy már ennyire körbejártuk, hogy a 
Semmit (üres sort) hányféleképpen és hogyan 
tudjuk kiíratni, nézzünk valami hasznosabb 
és látványosabb probléma után. 


A legtöbb személyi számítógép ismer vala- 


jö T 85 e Március 21. 


"ea 


milyen egyenes szakaszt rajzoló utasítást. De 
pl. a PRIMO sajnos nem. Nos, pótoljuk ezt és 
írjunk erre egy szubrutint. A feladatot a PLOT 
utasítás ciklikus végrehajtásával oldjuk meg. 


hi 


x 
2a ábra 


X ég 


A 2a ábrán látható vízszintes egyenest a 


36k FÜR izxzi TŰ xz 
319 FLOT i.yu 

sz HEAT i 

3394 RETLIRH 


szubrutin, a 2b ábrán látható függőlegest a 


ii 


5 


2 b ábra 


szubrutin segítségével rajzoltathatjuk ki. A tv 
8. adásának párhuzamos egyeneseket kiraj- 
zoló szubrutinjai a 3. ábra alapján a követ- 
kezők: 

ana FÜR izyi TU uz 

369 PLÜT xi 

sra HEAT i 

358 RETURH 


Ez utóbbi kettő felhasználásával már tégla- 
lapokat is rajzolhatunk. A téglalapot rajzoló 


hu 


"Dt A 
b 
ag , 
cjm 
i 4—— 
[z C4A 
3. ábra 


Jut REM $vizsz, parhuzamosokxk 
FÜR isz TŰ cta 

FLOT $.d 

PLOT i.dtb 

NHEXT. i 

RETURH 

REM fugg. partuzamozokik 
FÜR izd TŰ dítb 
ze 2 ag ua PB Bt pi eleik t 
PEG-cetasi 
HEAT i 

BETULRH 


. szubrutinban semmi mást nem kell tennünk, 


mint hogy meghívjuk a függőleges és a víz- 
szintes párhuzamosokat rajzoló szubrutino- 
kat: 


aaa GO SLIE düg 
éli Gü SUB 394 
eza KRETLRH 


Mint a példa is mutatja, szubrutin is hívhat 
másik szubrutint. Csak arra kell vigyázni, hogy 
az így hívott szubrutin nehogy valamilyen 
módon meghívja az őt hívó szubrutint, mert 
könnyen kialakulhat végtelen ciklus. 


Végül most megírt szubrutinjainkból, mint 
a házgyári elemekből felépíthetjük házunkat 
a képernyőn: 


18 BEM khaz oldalaik 

2a L.ET aziga: LET bsizg8 
38 LET zs43: LET dz1lEs 

az ca ze Sk 

za REM krhaztetuk 

ba LET azíizra: LET btslt 
fa LET zsj4ki: LET dsidd 
sa üű SIJE Ef 

38 REM tbal felsz ablak4k 
188 LET azdg: LET bezá 
118 LET zső7z: LET dzszSt 
12 Gű SUB Ela 
138 KEMH kicbb felsz ablak4k 
140 LET zsizb 
1386 G0 5I10B Ed 

168 REM £bal also ablak4k 
17 LET cs7z: LET dsdö 
174 GJ S1E EE 

184 [ 
ez kaka 
21 z LET dsig 
zza Gü SIJEB EWG 
z38 REM Xtoaladjk 
zda FLOT 18.16 
za LET xisi6: LET xés235 
zi LET yszl6 
z7a Gű SUE SZE 
zak STÜF 


HORVÁTHNÉ MAJSA KATALIN 


Számítástechnika 


Rovatszerkesztő: HEGYI ISTVÁN 


Mitől fü 


ggnek 


a BASIC: függvényei ? 


,Majd annak a függvényében döntök, hogy 
vállalkozásom mennyi hasznot hoz", mond- 
hatja pl. egy kisiparos. , Laci teljesen a fele- 
sége függvénye", szól gúnyosan a feleség barát- 
nője. Ezekből a példákból is látható, hogy a 
, függvény" szó a mindannapi életben is el- 
terjedt. Mégis, eredeti jelentését a matemati- 
kában kapta, ahol pontos értelme több mate- 
matikus generáció munkája nyomán csiszoló- 
dott azzá, amit ma helyesnek tartunk. A függ- 
vény ugyanis az egyik legfontosabb matema- 
tikai alapfogalom, ezért nem is csoda, hogy 
sokan foglalkoztak vele. A , függvény" elne- 
vezést a számítástechnika, ezen belül a BASIC 
programozási nyelv is használja, mégpedig 
esetenként a matematikai értelmétől jelentő- 
sen eltérő módon. Nyilvánvaló, hogy egy fon- 
tos fogalmat jelentő szónak többféle, netán 
pontatlan használata nagy zavart okozhat, 
ezért ezzel a témakörrel is foglalkozni kell. 
Elkerülhetetlennek tűnik, hogy ne a mate- 
matikai értelmezésből induljunk ki, de kerülni 
fogjuk az elvont fogalmakat, matematikai 
jelöléseket. Bevezetésképpen a függvénynél 
egy tágabb fogalmat ismerünk meg, melyru 
mindenekelőtt példákat mutatunk : 


- Minden magyar állampolgár lakik valahol, 
ezért hozzárendelhető mindegyikhez egy lak- 
cím. (Hogy miért azt mondjuk, hogy , hozzá- 
rendelhető", ahelyett hogy pl. azt monda- 
nánk, hogy , tartozik" egy lakcím? A válasz 
egyszerű, az állampolgárokhoz sokféle adat 
tartozik még, lakcímükön kívül, pl. súlyuk, 
magasságuk, személyi számuk stb. A , hozzá- 
rendelés" annak az elhatározásnak a kifeje- 
zése, hogy jelen esetben a magyar állampolgá- 
rok neve mellé a lakcímüket akarjuk írni.) 

— Minden magyar üzembe állított gépkocsi- 
hoz hozzárendelünk egy rendszámot (melynek 
alakja közismert, itt nem részletezzük). 

— Minden elképzelhető körhöz hozzárende- 
lünk egy síkbeli területet, pontosabban annak 


mérőszámát. (Pl. a gömbön is rajzolható kör, 
zszonban az általa körülvett gömbfelületet 
ki akartuk hagyni a számításból, ezért írtuk, 
hogy síkbeli.) 

— A képernyő bármelyik két megadott pont- 
jához hozzárendelünk egy távolságot. 

A , hozzárendelés"? szót kiemeltük minden 
példában, hogy érzékeljék jelentését. Mit 
mondhatunk tehát, mi a hozzárendelés ? 

- A hozzárendelés kicsit hasonlít a fény- 
képezéshez: adva van a fényképezendő dolgok 
összessége, halmaza, pl. hegyek, tó, ház, sze- 
mélyek stb. Ezt a továbbiakban tárgyhalmaz- 
nak nevezzük, egyes elemeit pedig tárgyele- 
meknek. 

A fényképezés abból áll, hogy minden tárgy- 
elemnek megfeleltetünk (létrehozunk) egy kis 
részecskét a fényérzékeny rétegen, ezeket a 
részecskéket képelemeknek nevezzük, akkor 
már meg is fogalmazhatjuk durván a ,,hozzá- 
rendelés" értelmét: a hozzárendelés valaho- 
gyan meghatároz egy tárgyhalmazt és annak 
minden eleméhez valahogy hozzákapcsol egy 
képelemet. 

- A hozzárendelés meghatározza magát a 
tárgyhalmazt (pl. magyar állampolgárok, ma- 
gyar üzembe állított gépkocsik, elképzelhető 
körök a síkon, pontpárok a képernyőn). 

- A hozzárendelés utal egy másik halmazra 
is, melyben a képelemek vannak. Ebbe tehát 
az is beleértendő, hogy ez a második halmaz 
olyan. elemeket is tartalmazhat, melyek nem 
képelemek. Példáink között is van ilyen, hi- 
szen a két betűből és négy számjegyből álló 
jelölések (a lehetséges rendszámok) száma 
jóval nagyobb, mint a rendszámmal rendel- 
kező gépkocsik száma. Előfordul az is, hogy 
a második halmaz minden eleme képelem. 
Példáink közül ilyen a körök halmaza, mert 
nincs olyan szám, mely ne lehetne egy kör 


területének mérőszáma. Végül megesik az. is, 
st; hogy "két különböző tárgyelemhez agyara A 


a képelem tartozik. Ez a helyzet pl. a magyar 
állampolgárok lakáscímeivel, mivel egy la- 
kásban többen is lakhatnak. Hasonlóan ez a 
helyzet a képernyő pontpárjaival és a lehet- 
séges távolságokkal, hiszen több olyan kü- 
lönböző pontpár található, melyek távolsága 
egyezik. 

A függvény is 
A megkötés abból áll, 


egyfajta hozzárendelés. 
hogy csak számokból 


álló tárgyelemekre ill. képelemekre szorít- 
kozunk. Pontosabban: egy-egy  tárgyelem 
egy, vagy több számból is állhat, a képelem 


azonban mindig csak egyből. Egy tárgyhal- 
mazon belül azonban minden tárgyelemnek 
ugyanannyi számból kell állnia. Példáinkból 
függvénynek tekinthető a körös modell, ha 
minden elképzelt kört a sugarával adunk meg. 
Ebben a tárgyhalmaznak minden eleme, vala- 
mint a képelemek mindegyike egy számból áll 
(ami természetes, mivel a kör sugara és terü- 
lete közt az ismert t — r2.n összefüggés áll 
fenn). Példáink közül függvény még a kép- 
ernyő pontpárjaira vonatkozó hozzárendelés 
is. Tudjuk, hogy képernyő minden egyes pont- 
jához két adat tartozik. Pl. a SET (X, Y) uta- 
sításban, mely kigyújt egy pontot a képernyőn, 
X az oszlopindex, Y a sorindex. Így tehát 
egy pont pár négy adat megadását követeli 
meg, amiből a D — SOR((XI1-X2)t  2- 
(Y1-Y2) 1! 2) értékadó utasítás számíthatja 
ki a távolságot. Ebben a példában tehát a 
tárgyelemek mindegyike négy számból áll. 

Ha a függvény tárgyelemei pontosan egy 
számból állnak, akkor egyváltozós függvények- 
ről beszélünk, de létezhetnek egy, két, vagy 
akár még több változós függvények is. A függ- 
vény tárgyhalmaza az, amit az iskolában ér- 
telmezési tartománynak neveztünk, míg kép- 
elemek halmaza az értékkészlet. 

A függvény egy tárgypontjához nem tar- 
tozhat két különböző képpont. Ilyen problé- 
mával találkozunk pl. a négyzetgyökvonás 
alkalmával, amikor is pl. V25 jelenti azt a 
számot, amit négyzetre emelve 25-öt kapunk. 
Csakhogy ilyen szám kétféle van: --5 és -5. 
Emiatt az y — Vx felírás csak akkor tekint- 
hető függvénynek, ha megállapodunk abban, 
hogy mi csak a pozitív értéket vesszük figye- 
lembe. A BASIC-ben pontosan ezt tesszük, 
amikor értelmezzük a SOR (X) szimbólumot. 
Tehát SOR (25) kinyomtatása a képernyőn 
mindig -— 5 eredménnyel szolgál. 

A számítógépben többféle elektronikus szer- 
kezeti egység található, ezek közül elmarad- 
hatatlan a vezérmű (processzor). Az utasítá- 
sokat a vezérmű értelmezi és hajtatja, vagy 
hajtja végre. Ezek azonban nem az általunk 
már megismert BASIC utasítások, hanem 
másképpen kódolt, nehezebben tanulható 
jelölések. Ezekkel most nem kívánunk rész- 
letesebben foglalkozni, csak azt kell meg- 
jegyeznünk róluk, hogy ez az ún. gépi kód az 
aritmetika (számtan) négy alapműveletén kí- 
vül más számtani műveletet nem képes végre- 
hajtani. Amikor A BASIC-ben pl. egy -- jelet 
használunk, akkor ez megindít egy olyan 
gépi kódos programot, ami összead két szá- 
mot. Mármost fölmerülhet a kérdés, hogy 
miféle gépi kódos programot lehet készíteni a 
BASIC , mögé", ha négyzetgyököt akarunk 
vonni, vagy egy szögnek a szinuszát akarjuk 
kiszámítani. Mint jól tudjuk, számos más át- 
alakító eljárás is van a BASIC-ben, melyek 


. mögött mindig egy gépi kódos program hajtja 


NÖSLES a feladatot és ada vissza az eredményt 
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a BASIC-nek. Ezeknek az átalakításoknak 
egy része függvény abban az értelemben, 
ahogy azt a matematika érti. Más részüket 
csak a számítástechnikában tekintjük függ- 
vényeknek. Miután azonban mindegyikük 
közös tulajdonsága, hogy a BASIC-ben értel- 
mezve vannak, használhatók, ezért belső 
függyényeknek nevezzük ezeket. A , belső" 
azt fejezi ki, hogy a BASIC automatikusan 
használja azt a gépi kódos programot, amely 
kiszámítja a függvény értékét. Két nagy csoport- 
ba oszthatók : a belső aritmetikai függvények- 
re az jellemző, hogy mindig csakis számokkal 
dolgoznak. A belső string-függvényeknek 
viszont az a közös tulajdonságuk, hogy fel- 
adataikat betű, szám vagy egyéb írásjelek 
felhasználásával végzik el. 

A következőkben először a belső aritme- 
tikai függvényekkel foglalkozunk. A függvé- 
nyek jellegét, típusát - mint már az eddigiek- 
ben is láttuk — betű szimbólumok jelölik, pl. 
SOR, SIN, LOG, INT stb. A legtöbb esetben 
a szimbólum után egy szám vagy egy kifejezés 
áll. Ezt a számot a HT 1080Z, PRIMO, és 
Commodore 64 gépek BASIC-jeiben záró- 
jelek fogják közre, a ZX Spectrum BASIC- 
jében zárójel nélkül állhat. Ha kifejezésre vo- 
natkozik a belső függvény, akkor az a szám ér- 
tendő utána állónak, melyet a kifejezés helyet- 
tesítési értékének kiszámítása után kap meg a 
program. Ezt a számot argumentumnak szok- 
tuk nevezni, ami esetenként nem azonos az- 
zal, amit a matematikában függvény argumen- 
tumának neveztünk. Abban viszont továbbra 
is egységes minden BASIC nyelv, hogy a 
belső függvény a prioritás szempontjából úgy 
viselkedik egy kifejezésben, mint a zárójel. 
Tehát először mindig az argumentumban álló 
kifejezés számértékét számítja a gép és csak 
ezt követőleg a függvény értékét. A követke- 
zőkben egy táblázatot látunk, mely a tárgya- 
lásunkba bevont négyféle személyi számító- 
gép BASIC-jeiben használható belső aritme- 
tikai függvényeket sorolja fel. Célszerűnek 
láttuk ezt még kiegészíteni a Commodore 64 
esetében az ún. SIMONS BASIC kiterjesz- 
tésben található belső függvényekkel, melye- 
ket megkülönböztetésül " jellel láttunk el. 

Végezetül táblázatunkhoz néhány kiegé- 
szítő megjegyzést fűzünk: 

- A , jelölés" rovatban a LET kulcsszóval 
kezdődő értékadó utasítások csak a ZX 
Spectrum gépre vonatkoznak. 

- Több helyen szerepel a radián szó. Jelen- 
tése az a körívhossz, amely valamilyen adott 
szöghöz tartozik az egységsugarú körben. 
Nemcsak fokokkal (percekkel, másodpercek- 
kel), hanem ezzel a körívhosszal, a radiánnal 
is mérhetjük a szöget. Ha c" jelöli egy radián- 
ban mért mérőszámát és a? ugyanezen szög 
fokban mért mérőszámát, akkor a következő 
aránypár ill. összefüggések írhatók fel: 
2-n:a" — 36097 :x9" amiből 


a! — 2 .—— , azaz a! — x9.0,0174533 illető- 
360? 


3609 
2 


Az átszámítások ezek alapján végezhetők el. 

-— ,v. sz." véletlen számot jelent, melynek 
értelmére még visszatérünk. 

A belső függvényekkel a következő szám- 
ban tovább foglalkozunk. 


leg cd azaz x? — ax". .57,29578. 
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ADA-WINTER PÉTER 


Belső aritmetikai függvények négy géptípuson 


A FÜGGVÉNY 


Sor- 
szám 


13 


20. 


21. 


22 


23: 


24. 


jelölése értékadó 
utasításban 


Y — ABS(X) 
LET Y — ABSX 


Y-ASNX 
Y-ACSX 
Y — ATN(X) 


LETY-ATNX 


Y — CDBL(X) 
Y"4. - CINT(X) 
Y — COS(X) 
LET Y — COSX 
Y — CSNG (X) 
Y — DIV (A/B) 
Y — EXP(X) 


LETY — EXPX 


Y — FIX(X) 
Y — FRAC (X) 
Y — INT (X) 


LETY-INTX 


Y — LOG (X) 
Y-LNX 

Y — MOD (A, B) 
RANDOM 


értékadásban nem 
használható 


RANDOMIZEn 
értékadásban nem 
használható 


LETY —- RND 


Y- RND(X) 


Y:-SGN(X) 
LETY-SGNX 


Y-SIN(X) 
LETY-SINX 


Y- SOR (X) 
LETY-SOR X 


Y-—-TAN(X) 
LETY-TANX 


neve 


abszolút érték 


arkusz-színusz fv., 
a szinusz inverze 


arkusz-koszinusz 
fv. a koszinusz 
fv. inverze 


arkusz-tangens 
fv., a tangens fv. 
inverze 


dupla pontosságú 
sz. -ra alakít 


szigorúan lefelé 
kerekít, egész 
típusúra alakít 


koszinusz fv. 


normál típusúra 
alakít 


tört egészrésze 
szigorúan lefelé 


ex, azaz a 
természetes 
logaritmus alap- 
jának hatványa 


tizedes tört 
törtrészének 
elhagyása 


tizedes tört 
egész részének 
elhagyása 


egész érték v. 
enterier fv. 
szigorúan lefelé 
kerekít 


X természetes 
logaritmusa, 
yz1nx 


X természetes 
logaritmusa, 
yzi1nx 


az A:B művelet 
maradékát adja 


a véletlenszám 
generátor előzetes 
beállítása 


a véletlenszám 


generátor előzetes 
beállítása 


véletlenszám 
generáló 


véletlenszám 
generáló 


előjel, v. 
szignum fv. 


szinusz fv. 


négyzetgyök fv. 
fv.y — Y[—x 


tangens fv. 


A géptípus 
argumentuma értéke HT- PRI- ZX  Com- 
1080. MO  Spect- mo- 
z rum  dore 
a. kif. v. mindig van van . van van 
normál sz. Yzg 
normál sz. 
-ISXS141 radiánban értendő nincs nincs van — nincs 
a kif. v. normál sz. -n/2SY S n/2 
-IEXZ 6141 radiánban értendő nincs nincs van — nincs 
a kif. v. normál sz. -n/2SY s n/2 
a. kif. v. radiánban értendő van van van van 
normál sz. -r/2-Ycn/2 
a. kif. v. dupla pontosságúsz. van van — nincs nincs 
normál sz. 
a. kif. v. normál sz. egész típusú sz. van van — nincs nincs 
a. kif. v. normál sz. van van van van 
normál sz. -íSsYStI 
dupla pontosságú normál sz. van van — nincs nincs 
sz. 
a. kif. v. normál normál egész sz. nincs nincs nincs van 
sz.-ok hányadosa 
a. kif. v. normál egész sz. van van van van 
normál sz. 
a. kif. v. normál egész sz. van van — nincs nincs 
normál sz. 
a. kif. v. normál sz. nincs nincs nincs van 
normál sz. 0SY-il 
a. kif. v. normál egész sz. van van van van 
normál sz. 
a. kif. v. normál sz. van van — nincs van 
normál sz. 
X50 
a. kif. v. normál sz. nincs nincs van — nincs 
normál sz. 
X50 
tört kif. v. normál sz. nincs nincs nincs nincs 
két normál sz. 
hányadosa 
nincs nincs van van — nincs nincs 
n nem negatív nincs nincs nincs van — nincs 
egész, han — 9, 
akkor elhagyható 
0£n 65535 
nincs normál sz. nincs nincs van — nincs 
0-Y-I 
lásd a lásd a HaX —0, nincs van 
géptípusoknál géptípusoknál akkor 
0-Y-i1 
normál sz. 
Ha 
1-X- 
32768 
akkor 
1SsYEX 
HaX—-— 1 
akkor 
Yzi 
sé. IK ék -1, ha X—-0; van van van van 
normál sz. 0, ha X — 0; 
41. ha X50 
a. kif. v. normál sz. van van van van 
normál sz. -(sYsSdI 
radiánban értendő 
akit va . normál sz. , van van van van 
normál sz. Yzo 
Xzg 
a kif. v. normál sz. van van van van 
normál sz. 
(n/2-4-n-r)-t 
. 6 tizedesig 
közelítheti 


Budapest 1986 


Olvasóink írják 


mérges öregasz- 
szony. avagy mi történt a Paula- 


Az 1985. január számban 


megjelent ..A 


villában" című cikk alatt - fel- 
tehetően szerkesztői megjegyzés- 
ként szerepel ez a mondat: 
. Épp ezért mind sürgetőbb. hogy 
a tanácsok aktaszámok helyett 
emberi helyzeteket tárgyaljanak." 

Titkárságunk részéről a szóban 
forgó megjegyzést alaptalannak és 
felelőtlennek tartom. mert ellen- 
kezik az ügyben keletkezett ta- 
nácsi iratokkal. A cikk ugyan 
nem tesz említést tanácsi eljárás- 
ról, de azért a főszerkesztő elv- 
társat a következőkről tájékoz- 
tatom: 

A cikkben szereplő Kalmár há- 
zaspár államigazgatási úton tulaj- 
donszerzési korlátozás alóli fel- 
mentést kért annak érdekében, 
hogy dr. Menyhei Istvánné tulaj- 
doni hányadát is megszerezhessék. 
A kérelemnek az első fokú ható- 
ság helyt adott ugyan, de Menyhei- 
né fellebbezése után a Fővárosi 
Tanács V.B. igazgatási főosztálya 
az első fokú határozatot megvál- 
toztatta, és Kalmárék kérelmét el- 
utasította. 


Kalmárék a Fővárosi Tanács 
V.B. titkárához felülvizsgálati ké- 
relmet is benyújtottak. de az 
1260/4/83. számú határozatunk a 
kérelmet elutasította. A tanácsi 
szervek jogerős határozata tehát 

a szerkesztői megjegyzéssel el- 
lentétben - éppen nem Menyhei- 
nét sújtotta. hanem számára ked- 
vező volt. 

Rafaelné dr. Rikli Erzsébet 
a titkárság vezetője 


Készséggel adtunk helyt a Fővá- 
rosi Tanács levelének, bár, ahogy 
Rafaelné dr. Rikli Erzsébet is meg- 
állapítja: cikkünk nem tesz emlí- 
tést tanácsi eljárásról. Igaz vi- 
szont: ama szerkesztői megjegy- 
zésben két betű bizony fölösleges 
volt. Tanács helyett tanácsokat 
írtunk, mégpedig ezt magára ve- 
heti - magára is vette : az alapel- 
járást végző kerületi tanács (egyéb- 
ként a második kerületről van szó) 
helyett, az igaztalan döntésüket 
lehetősége szerint jóvátevő Fő- 
városi Tanács. Más kérdés azon- 
ban, hogy ez sem segített, hiszen 
még a Fővárosi Tanács jogerős 
határozata is kevés volt Menyhei- 
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nének , mégis, e határozat ellenére 
is. Kalmárék nyertek. 


Kedves Ötlet! 


1962. szeptember elsejétől 1983. 
február 28-ig mint női szabó kis- 
iparos dolgoztam. 1962-től 80 fo- 
rint .  SZTK-járulékot fizettem 
1982-ig. 1982-ben 340 forintot, 
1983-ban 400 forintot. Adóalap: 
18 000 és 24 000 forint volt. 

Betegség miatt 1983. február 
28-án működési engedélyemet le- 
adtam. 1985. április 14-től nyug- 
díjas leszek. 21 év 176 nap szol- 
gálati idő után állapították meg 
nyugdíjamat, ami a pótlékokkal 
együtt 1999 forintra jött ki. Az 
értesítés kézhezvételétől  számí- 
tott 15 napon belül megfellebbez- 
tem áz Önök lapjára hivatkozva, 
mely szerint : , jelenleg a nyugdíjak 
legkisebb összege - a 80 forinttal 
együtt nem lehet alacsonyabb 
2250 forintnál". 


Nem tudom, én ertelmeztem-e 
rosszul, de fellebbezésenret el- 
utasították azzal az indokkal, 
hogy: ..átlagkeresetem 1419 fo- 
rint". A 2250 forintra akkor len- 
nék jogosult, ha az átlagkerese- 
tem a 2250 forintot meghaladja. 
A Társadalombiztosítási Tanács 
másodfokon hozott határozata el- 
len a kézbesítést követő 30 na- 
pon belül az igénylő - az igény 
jogossága tekintetében - kereset- 
tel fordulhat a Társadalombizto- 
sítási Tanács székhelye szerint 
illetékes munkaügyi bírósághoz. 

Fiamnak jár az Ötlet, így a tu- 
lajdonomban van. Bátorkodom 
Önökhöz fordulni kéréssel, vajon 
jár-e a 2250 forint nekem is? 
Fordulhatok-e keresettel a munka- 
ügyi bírósághoz? 

Potonay Károlyné 
Egyházasrádóc 
Rózsa utca 40. 9783 


Kedves Olvasónk ! 
Köszönjük jelentkezését. Helyt- 
álló - a Társadalombiztosítási 
Főigazgatóság tájékoztatása sze- 
rint - az, hogy az átlagkeresettől 
nem lehet magasabb a nyugdíj 
összege. 

Ezzel együtt jogában áll a mun- 
kaügyi bírósághoz fordulni. 


Jelentkezés a TV-BASIC vizsgára 


Az előzetes jelzések szerinti több ezren szeretnének a TV-BASIC- 
tanfolyam végén vizsgát tenni. Ilyen tömegű beszámoltatásra 
hazánkban eddig nem volt példa, ezért a vizsgával kapcsolatos 
tudnivalókat az alábbiakban röviden összefoglaljuk. 

1. A vizsgán tesztlapokat kell kitölteni, amelyeket a jelöltek 
a vizsga helyszínén kapnak meg. 


TV-BASIC jelentkezési lap 


Alulírott a TV-BASIC vizsgára jelentkezem: 


Név: 
2. A vizsgára az alábbi lapon kell jelentkezni, amelyet meg- 


címzett és felbélyegzett válaszborítékkal"együtt kérünk vissza- 
küldeni. 

3. A vizsga helyszínét a jelentkezések földrajzi eloszlásától 
függően fogjuk kijelölni. Budapesten több helyen. valamint a 
megyeszékhelyeken biztosan lehet vizsgázni. Ha egy-egy tele- 
pülésről, városból 50 főnél többen jelentkeznek, akkor az adott 
városban is biztosítjuk a vizsgázás lehetőségét. 

4. A vizsga helyét válaszlevélben adjuk meg, de a helyszíneket 
a TV-BASIC utolsó adásakor a tv-ben is közöljük. 

5. A vizsgabizottságot az NJSZT és a SZÁMALK együttesen 
nevezi ki. 


Megye: 
Város: 
ÚESAL HÁZSZÁM ez szei szszezstet tt a száz z es é te sz ee őesz ös 


Személyi szám: 


(aláírás) 


6. A vizsgára jelentkezés határideje : 1985. április 30. 

7. A vizsga várható (előzetes) időpontja : 1985. május 27. 

8. A vizsga díja 200 Ft. amelyet előzetesen kell az NJSZT 
számlájára befizetni. A csekket a vizsga helyének visszaigazolá- 
sával egyidejűleg a jelölteknek megküldjük. A vizsga alkalmá- 
val a vizsgabizottság a tesztlapokat és a befizetést igazoló át- 
utalási szelvényt a jelentkezés visszaigazolása. valamint a sze- 
mélyi igazolvány bemutatása mellett adja ki. 


Visszaigazolás 


A vizsga helye: 


időpontja: 


Név: 
r 9. A megoldott feladatlap átadásakor a személyi igazolványt 
Megye: 3 

fel kell mutatni. 
Város: s : 
A szervezők nevében: 
Utca, házszám: KövácsiGyőző 
az NJSZT főtitkára 


§ 


Dr. Arató Mátyás k 
a SZÁMALK irodavezetője 
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Úgy, 


Rovatszerkesztő: HEGYI ISTVÁN 


Mitől fugg 


nek 


a BASIC függvényei? 


Legutóbb a belső aritmetikai függvényekkel 
.] foglalkoztunk és táblázatos áttekintést adtunk 
róluk. Most néhány belső aritmetikai függ- 
vény sajátosságairól esik először szó. 

Mint a táblázatból is láttuk, az RND, 
RANDOM ill. RANDOMIZE kulcsszavak 
a véletlen számok előállításával, generálásával 
vannak kapcsolatban. A véletlen szám nagyon 
egyszerű dolog: olyan szám, melyet egy álta- 
lunk véletlennek minősíthető eseményből ka- 
punk. Legegyszerűbb példa erre a kockadobás, 
ami 1-től 6-ig terjedő véletlen számot szolgál- 
tat. De ugyanígy véletlen szám egy adott idő- 
pillanatban a Lánchídon áthaladó járművek 
száma vagy a lottón kihúzott öt szám. 
Gondolom, mindenki előtt nyilvánvaló, hogy 
a véletlenszám-generálás nem lehet igazi függ- 
vény, még akkor sem, ha a belső aritmetikai 
függvények közé soroltuk. Hiszen emléke- 
Zünk: a függvény értéke egy képelem, amely 
a tárgyhalmaz valamely eleméhez való hozzá- 
rendeléssel állt elő. A véletlen szám ugyan vala- 
milyen meghatározott eljárás szerint jön létre, 
de ez nem hozzárendelés. Sem a kocka dobá- 
sa, sem egy kerékből cédula húzása, sem más 
ilyen eljárás nem hozzárendelés. Bármilyen 
egyszerűnek tűnik is, a számítógépben még 
nem egészen egyszerű a véletlen szám előállí- 
tása. Az aritmetikai függvények, mint látjuk 
nem állíthatnak elő véletlen számot, hiszen a 
véletlen szám fogalmában benne van, hogy 
nem függ semmiféle szabályos, meghatározha- 
tó kapcsolat szerint egy másik számtól. Ezek 
szerint két lehetőségünk van: 


1. vagy beleépítünk a gépbe pl. egy rulettet 
vagy hasonló véletlenszám-generáló gépet, 

2. vagy kitalálunk egy olyan függvényt, 
amely majdnem véletlen jellegű számot szol- 
gáltat. 

Az első megoldás nem járható út. A rulett 
véletlenszerűségébe a megforgató személy pil- 
lanatnyi tulajdonságai is belejátszanak, egy 
géppel meghajtott rulett nem is lenne eléggé 
véletlenszerűen szolgáltató rendszer. .Meg mi 
általában legalább 6, esetenként 8 jegyű vé- 
letlen számokat igénylünk, ami a rulett eseté- 
ben megvalósíthatatlan. Marad a második 


eset, ami azt jelenti, hogy van ugyan bizonyos 
szabályosság, ha úgy tetszik ismétlődés a szol- 
gáltatott számokban, de ez olyan nagyon sok 
szám előállítása után vehető csak észre, hogy 
az már nem zavaró. Az ilyen számokat álvélet- 
len (pszeudovéletlen) számoknak mondjuk. 

Azt is tudnunk kell, hogy véletlen számokból 
is több típusú van. Mi olyan álvéletlen számo- 
kat akarunk előállítani, amelyek 

e csakis egy megadott számközben fordul- 
nak elő (leggyakrabban 0 és 1 között, de le- 
hetnek más határok is.); 

e ha egy nagyobb mennyiséget ezekből a 
generált véletlen számokból az adott szám- 
közben a számegyenesen ábrázolunk, pl. egy 
pontot teszünk a megfelelő helyre, akkor ezek 
a pontok viszonylag mindig egyenletesen he- 
lyezkednek el ezen a szakaszon, kifejezetten 
sűrűsödő vagy ritkuló helyek nem lépnek fel. 
Ugy mondjuk, hogy egyenletesen oszlanak el. 
Mármost: miféle módszerekkel lehet álvélet- 
len számokat előállítani. Hogy valamilyen fo- 
galmunk legyen — egyszerűsített formában — 
tízes számrendszerbeli számokkal vázolunk 
egy ilyen eljárást, előrebocsátva, hogy a szi- 
gorú szakmai igényeknek az ezzel készült vé- 
letlen számok még nem felelnek meg. Az el- 
járás tehát az alábbi. 

a) lépés. Megadunk két pozitív egész szá- 
mot, az egyiket alapszámnak, a másikat szor- 
zónak nevezzük. A szorzó induló értékét egy- 
szer s mindenkorra megadjuk és azt az eljárás 
a továbbiakban automatikusan változtatja. 
Ezt az induló értéket tapasztalati úton (próbál- 
kozásokkal) szokták kialakítani, vegyük mi 
most 37-nek. Az alapszám induló értékét a 
generálófüggvény magjának nevezzük. Ezt is 
előre megadjuk, de lehetőséget adunk indítás 
előtti módosítására, átalakítására. Az alap- 
számok általában nagy, azaz sokjegyű szá- 
mok, számjegyeik számát elő kell írnunk. 
Válasszuk most kilencjegyűre az alapszámo- 
kat. A szorzók ezzel szemben két- vagy há- 
romjegyűek. 

b) lépés. Szorozzuk össze az alapszámot 
(első végrehajtásnál a magot) a szorzóval. 


A kapott szorzatot többféleképpen több részre 


n 


bontjuk fel. Először kiemelünk belőle egy 
szomszédos számjegypárt úgy, hogy az első 


menetben az elsőt és másodikat, a második ! 


menetben a másodikat és harmadikat, a har- 
madik menetben a harmadikat és negyediket 
stb., és ha a számjegyeken végigmentünk, ak- 
kor elölről kezdjük. Ezeket a jelzőszámokat 
mindig a szorzatból emeljük ki, de ne feled- 
jük, hogy a szorzat is más minden menetben. 

c) Megvizsgáljuk a jelzőszámot és ha ez egy 
próbálgatásokkal beállított határszámnál na- 
gyobb, akkor a következő menetben a szorzó 
háromjegyű lesz, ha egyenlő vagy kisebb nála, 
akkor kétjegyű lesz. (Esetünkben 44 ez a 
határszám.) 

d) lépés. Leválasztjuk a szorzat jobb széléről 
az utolsó két, ill. három számjegyet, aszerint, 
hogy a jelző mit mutatott, és ez lesz a követke- 
ző menet szorzója. (Itt gondoskodunk arról, 
hogy ez a szám 10-nél kisebbé ne válhasson.) 

e) lépés. Kiemeljük a szorzatból bal felől a 
2.-től 10.-ig terjedő 9 jegyű számot és ez lesz 
a következő menet alapszáma. (Ha a legma- 
gasabb helyiértékén 0 állna, akkor 10-zel 
szorozzuk). 

f) lépés. A szorzat balról számított 3. jegyé- 
től a 9. jegyig terjedő számjegyeket kiemeljük 
és ezt a hatjegyű számot osztjuk 106-nal, hogy 
álvéletlen számunk 0 és 1 közé essen. 

Ez lesz az első menetben generált álvéletlen 
szám. Ha további véletlen számra lenne szük- 
ségünk, akkor az eljárást mindig a b) lépéstől 
kezdve folytatjuk. 

Ez a példa egyszerűsített, az így előállított 
véletlen számok átlaga kissé eltér a 0,5-től, 
ami hibának számít. A gépikódos álvéletlen- 
szám-generátor szubrutinok a BASIC ,,leg- 
szívósabb" részéhez tartoznak. A gép bekap- 
csolásakor megindulnak és alaphelyzetbe 
csakis újabb kikapcsolással kerülnek. A RAN- 
DOM, ill. RANDOMIZE, ill. Commodore 
esetében az RND(0) a mag módosítására 
szolgál, azaz ezek hatására más értékekkel in- 
dul az álvéletlenszám-generálás, mint ezek 
nélkül. A mag átállítása , legvéletlenszerűb- 
ben" a Commodore-nál történik, amely egy 
belső időmérő regiszter tartalmával módosítja 
a magot, és az tényleg eléggé véletlenszerű, 
hogy mit tartalmaz éppen az időmérő regisz- 
ter. A HT-1080 és a PRIMO a képernyőn 
levő aktuális karakterszámtól teszi függővé a 
magot. A SPECTRUM a legfejletlenebb ebből 
a szempontból, ott mi adunk meg egy számot, 
ami a mag értékét megváltoztatja. 

Mint már az első részben említettük, a ve- 
zérmű csak a négy alapművelettel számol. 
Ennek ellenére a BASIC aritmetikai belső 
függvényei négyzetgyököt, szinuszt, logarit- 
must stb. számítanak. Már felvetettük a kér- 
dést is; milyen módszerekkel lehet ilyen függ- 
vények értékeit, csak az alapműveleteket fel- 
használva kiszámítani (pontosabban fogalmaz- 
va közelítőleg kiszámítani)? Most a négyzet- 
gyökvonásra vonatkozólag kísérelünk meg 
egyfajta tájékoztatást, érzékeltetést nyújtani, 
de természetesen anélkül, hogy a matematikába 
belebonyolódnánk. 

A négyzetgyök közelítő számításához indul- 
junk ki a középiskolából jól ismert , normál 
parabolából" (1a ábra), amelynek egyenlete 
y7-x2, csúcspontja az origóba, azaz a koordi- 
nátarendszer középpontjába esik. Tegyük fel, 
hogy V5 közelítő értékét akarjuk kiszámítani, 
ezért csúsztassuk el parabolánkat 5 egységgel 
lefelé (az y tengely negatív irányában), amit 
az 1b ábrán láthatunk. Ekkor a parabola 
egyenlete y—x2—5. Az így kapott parabolánk 
ott metszi az x tengelyt, ahol y—0, azaz ahol 
x2—5 ill. x—--V5. Megállapodunk most ab- 
ban, hogy csak a parabola jobb oldali ágát 


vesszük figyelembe, ahol x—[/5. Ez azt jelenti, 
hogy ha meg tudnánk jól közelíteni azt a pon- 
tot, ahol az y—x2—5 parabola metszi az 


x tengelyt, akkor megkapnánk V5 közelítő 
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értékét. Az ilyen gyök-közelítésre többféle 
eljárás is ismert a matematikában. Közös tu- 
lajdonságuk ezeknek, hogy (jelen esetben az 
x tengely pozitív felén) fel kell venni egy in- 
duló pontot, ahonnan az eljárás elindul és 
amelytől fokozatosan közeledik a gyökhöz. 
Elvileg ez akárhol lehetne, de azért nagyjából 
mindig lehet tudni, hogy mely részen található 
a gyök és a kezdőpontot (amit xo-val jelölünk) 
nem túl távol tűzzük ki a gyök körülbelüli he- 
lyétől. A közelítő képlet olyan, hogy ha be- 
helyettesítjük xo értékét, akkor az eredményül 
egy a gyökhöz közelebb eső xz pont helyét 
adja meg. Ezután behelyettesítjük a képletbe 
X1-et és eredményül egy még közelebbi pontot 
kapunk, az x2-t stb. Kapunk tehát egy szám- 
sort, ill. az x tengelyen pontok sorozatát, 
melyek egyre közelebb kerülnek az igazi gyök- 
höz. Bár ez a pontsor soha sem fogja pontosan 
elérni a gyök helyét, akármilyen kis távolság- 
nál is jobban meg tudjuk közelíteni, ha eléggé 
sokszor alkalmaztuk a képletet, azaz eléggé 
messze elmentünk az xg, Xi, X2, X3,...szám- 


sorozatban. [5 közelítésére a következő képlet 
szolgál: 


5 
Xn41— 0,5-[x1£— 
X, 


n. 
Ha tehát pl. xz az utolsó kiszámított pont 
helye, akkor ez a képlet x4-et, a negyedik 
pont helyét számítja ki. Eljuthatunk a közelí- 
tésben odáig, hogy két számított pont távol- 
sága kisebb lesz annál a legkisebb számnál, 
amit számítógépünk ábrázolni tud. Ezzel ré- 
szünkre befejeződik a tovább számolás értel- 
me, mivel gyakorlatilag minden számított kö- 
zelítő gyökérték ugyanannak a számnak adó- 
dik. (Az ilyen jellegű közelítő eljárásokat 
iterációnak is szoktuk nevezni.) Az iterációt 
csak addig érdemes folytatni, ameddig az 
egymás után kapott két közelítő érték egyen- 
lővé nem válik a gépi ábrázolásban. Az iterá- 
ciót a következő programmal tudjuk megvaló- 
sítani (természetesen a SOR belső függvény 
alkalmazása nélkül) : 


1 INPUT X 

26 FORI 241 TO2B 
36 XL - .54(X 4 5/X) 
4 PRINT I;X1 

5Ó X z XI 

6Ó NEXT:STOP 


A programfuttatás eredményeként, ha az 
X—1 kezdőértéket választjuk a következő szá- 
mokat kapjuk: 3, 2.33333, 2.2381, 2.23607 és 
további hat esetben ismétlődik az utolsó szám. 
Vagyis azt látjuk, hogy négy ciklusmenet 
lefutása után a közelítés az adott gépi ábrázo- 
lás mellett nem pontosítható tovább. Ez az 
eljárás viszonylag , gyorsan", azaz kevésciklus- 
menet felhasználásával közelíti V5 értékét. 

Végezetül térjünk át a belső string (szöveg) 
függvényekre, amelyek kép- és/vagy tárgy- 
tartományukban betűket, számjegyeket és más 
írásjeleket tartalmazhatnak. Ezen tulajdonsá- 
guk alapján három csoportba soroljuk : 

a) Stringtartományból számtartományba le- 
képezők. 

b) Számtartományból stringtartományba le- 
képezők. ú 

c) Stringtartományból 
leképezők. 

Az a) csoport tárgyalásánál mindjárt kitű- 
nik, hogy a BASIC , mögött" tulajdonképpen 
minden betűnek, számjegynek, írásjelnek (egy- 
szóval minden karakternek, ami a gépen értel- 
mezett) létezik egy számkódja, melynek nagy- 
sága 1 és 255 közé esik. A számkódok hozzá- 
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stringtartományba 


rendelése az amerikai információcsere szab- 
ványkód szerint történik (American Standard 
Code for Information Interchange), innen az 
ASCII rövidítés. Az ASC függvény az argu- 
mentumban írt karakter ASCII kódját adja 
eredményül. (Így tulajdonképpen a string- 
függvények valódi függvényként is értelmez- 
hetők, mivel nem egyebek, mint nyomtatott 
jelek és számok kölcsönös és egyértelmű egy- 
máshoz rendelései.) Ebbe a csoportba tartozik 
a LEN függvény, amely megadja, hogy az 
argumentumban levő string, ill. stringváltozó 
tartalma hány karakterből áll. Ez a string 
,: hossza". Végül ide tartozik a VAL függvény, 
amely a string formában írt számokat nume- 
rikusan felhasználható formára alakítja (kon- 
vertálja) át. 

A b) csoport függvényei a CHR$ függvény 
az argumentumban álló kifejezés értékéből 
állít elő stringet (ha annak számértéke 0 és 
255 közé esik), az STR$ függvény aritmetikai 
kifejezés ill. számkonstans számértékének 
megfelelő stringet állít elő. A STRINGS$ ar- 
gumentuma kétváltozós. Az első mindig szám- 
érték, és egy string karakterszámban mért 
hosszát jelenti, a második változó vagy karak- 
ter, vagy annak ASCII kódja. Az eredmény 
az argumentumban adott hosszúságú, kizáró- 
lag az adott karakterből álló string. 


A c) csoport függvényei az argumentumban 
megadott string ill. stringazonosító tartalmá- 
nak különféle csonkításait teszi lehetővé. 
A LEFT$, RIGHTS és a MID$ függvények 
tartoznak ide. A felsorolt belső stringfüggvé- 
nyek egy kivételével HT 1080, PRIMO és 


Commodore 64 gépeken (STRING$ nincs e 
Commodore-on). 


A ZX SPECTRUM stringkezelése némileg 
eltérő felfogású a fentiektől. Itt ugyanis a 
MIDS$ helyett 


sABCDEF" (2 TO 5)—, BCDE" ill. 

. : ABCDEF" 3—"C" 3 
alakú függvények használatosak, akárcsak pl. 
K$B3 TO 5) stb. A CHR$, LEN és VAL 
függvények a SPECTRUMON is megtalálha- 
tók az ASC helyett CODE szerepel. Van egy 
VAL$ függvény, melynek eléggé szokatlan 
és — véleményünk szerint — nem különösen 
hasznos szerepe van: 


VALS$ "Stringazonosító" —Stringérték 
VAL$ """Stringazonosító""" —"Stringazo- 
nosító" 


VAL$ VAL$ " ""Stringazonosító ""—VALS 
"Stringazonosító" —Stringérték 


A stringfüggvények ismeretében kézenfekvő 
kitűzni azt a feladatot, hogy próbáljunk meg 
tízes számrendszerben, álvéletlenszám-gene- 
ráló programot készíteni, a leírt lépések alap- 
ján. A dolog megkönnyítése érdekében közöl- 
jük a feladat folyamatábráját, azzal a meg- 
jegyzéssel, hogy az alapszámnak, melyet az A 
változó tartalmaz duplapontosságúnak kell 
lennie. A szorzót S, a jelzőt B$, a generált 
álvéletlen számot V változó tartalmazza. Vé- 
gül ismételten megjegyezzük, hogy ebben a 
formában a generált álvéletlen számok csak 
mérsékelten felelnek meg követelményeinknek. 


ADA-WINTER PÉTER 


Gap) Álvéletlenszám-generáló, tízes számrendszerben 
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Rovatszerkesztő: HEGYI ISTVÁN 


Milyen is a programozás 


, logikája ? 


, Ha a babám mással megy táncolni, akkor én 
is keresek magamnak egy párt." No, most ne 
valami szerelmi csetepatéra tessék gondolni, 
hanem a mondat mögött rejlő tevékenységre. 
Ebben ugyanis az én cselekvésem egy feltétel- 
hez van kötve, pontosabban kétféle cselekvé- 
semről esik itt szó : 

— először megvizsgálom,  bekövetkezett-e, 
igaz-e, hogy a babám mással ment táncolni; 

— és csak ezután teszek a válaszlépés érdeké- 
ben valamit. 

A mondat első fele tehát egy feltétel teljesü- 
lésének vizsgálatát jelenti, mely megelőzi a 
mondat második felében álló cselekvést. A TV 
BASIC adásokban hallhatták, a kiadott 
könyvben olvashatták, hogy milyen az IF- 
THEN utasításszerkezet, és nyilvánvalóan 
feltűnik a hasonlóság mondatunk és az utasí- 
tás szerkezete közt: 

HA teljesül egy feltétel, AKKOR egy (vagy 
több) utasítás végrehajtása következik (if — ha, 
then — akkor). Mi most a feltétel tulajdonsá- 
gaival, lehetőségeivel kívánunk bővebben fog- 
lalkozni. 

A programnyelvben jól jelölhető, egyértel- 
műen eldönthető feltételeket kell támaszta- 
nunk. Nem lenne egyértelmű például a követ- 
kező mondatban a feltétel: , Ha Icuka szép, 
AKKOR vele fogok járni", mivel az, hogy 
Icuka szép-e vagy sem, mennyiséggel nem fe- 
jezhető ki. Ha mérhető, vagy legalábbis egy- 
értelműen összehasonlítható mennyiségekkel 
fejezzük ki feltételünket, akkor mindig vi- 
szonylag könnyen eldönthető, hogy az igaz-e, 
vagy hamis. A BASIC nyelv egyszerűbb alakú 
feltételei pl. ilyenek : 

Igaz-e, hogy A — 5? 

Igaz-e vagy hamis, hogy B2XC? 
ahol a szereplő azonosítók már rendelkeznek 
valamilyen korábban felvett értékkel. Ezeket az 
egymáshoz hasonlításokat,  viszonyításokat 


latinosan relációknak nevezzük. A reláció 
ezek szerint vagy igaz, vagy hamis, több eset 
nincs. Az , igaz", ill. a , hamis" tulajdonságot a 
továbbiakban logikai értéknek nevezzük. 

Minden IF-THEN között álló relációt a 
végrehajtás időpontjában a számítógép ki- 
értékel, és az IF és THEN közé beírja a reláció 
logikai értékét. (Persze ez a fogalmazás kissé 
naiv, mivel ez a logikai érték egy meghatáro- 
zott rekeszbe kerül a tárban, ami helyileg 
nincs feltétlenül az IF, ill. a THEN szócskák 
kódjai közt.) Első pillantásra talán kissé szo- 
katlan, hogy egy relációnak értéke lehet. A kü- 
lönbség az algebrai kifejezés helyettesítési 
értékének és az IF-THEN között álló logikai 
kifejezés értékének számítása között az, hogy 
míg az előbbinek a programbeli azonosítóját 
mi írjuk elő, addig a reláció logikai értéke egy 
meghatározott, általunk nem befolyásolt hely- 
re kerül. 

Teljesen nyilvánvaló, hogy ha az A— B 
reláció , (egyenlőség") igaz, akkor ennek a 
tagadása, azaz az A— 5 B reláció (a , nem- 
egyenlőség") hamis. Hasonlóan, ha igaz, hogy 
X:Y, akkor ennek tagadása X— — Y ha- 
mis, továbbá, ha U-V igaz, akkor tagadása, 
az U5 — V hamis. (Az adásban már elhang- 
zott, hogy , — —" jelentése, hogy a bal oldal 
nagyobb vagy egyenlő a jobb oldallal stb.) 
Mindebből könnyen kikövetkeztethető, hogy 
pl. az AC 5 B reláció tagadása az A— B 
reláció, amit általánosan fogalmazva úgy 
mondhatunk, hogy bármely tagadott reláció- 
nak újabb tagadása az eredeti relációt jelenti. 
Az egymást tagadó relációpárok tehát: 


A-B és A-:B 
At5B és Az -B 
A-B és A- —-—B 


Valamely reláció tagadását így is kifejezhetjük : 
NOT(A —-—B) —(A——-B) 
A NOT szócska után a szóban forgó logikai 


érték ellentettjére alakul, azaz ha a zárójelben 
az egyenlőségi reláció hamis, akkor a jobb- 
oldalon (a második egyenlőségjeltől) , igaz" 
logikai érték áll. A filozófiából átvéve negá- 
ciónak is mondjuk a tagadást. A bal oldalon 
egy egyszerű reláció áll, melyet azért tettünk 
zárójelbe, hogy az azonosságot jelentő egyen- 
lőségjel szerepe egyértelműen tisztázott legyen. 
Tehát feltéve, hogy az A — B reláció hamis, 
ez az azonosság azt mondja nekünk, hogy 
JAVA" sz GAZ 
Ilyen összefüggés fordítva is felírható : 
NOT(A— 5 B) — (A — B) 
sőt a BASIC többi relációira is érvényes : 
NOT(A- B) — (Az — B), 
NOT(A— — B) — (A-B), 
illetőleg 
NOT(A—B) —(A- — B), 
NOT(A- — B) — (A-B). 
Az , igaz"? és a , hamis" logikai értékeket a gép- 
ben valahogy meg kell valósítani, amit senki 
se képzeljen valami különleges filozófiai jel- 
nek. Az ábrázolás gépenként, sőt program- 
nyelvenként eltérő. A HT 1080Z-n és a 
COMMODORE 64-en az , igaz" jele -1, a 
, hamis?-é Ő. ZX SPECTRUMON az , igaz" 
jele 1, a másik ugyanaz. (Mi -1 és B jeleket 
használunk a továbbiakban.) Annak magyará- 
zatába, hogy miért pont ezek a jelek reprezen- 
tálják a logikai értékeket most ne bocsátkoz- 
zunk. Azt azonban érdemes megjegyeznünk, 
hogy nem valami önkény vagy szeszély, ha- 
nem nagyon is fontos célszerűségi szempontok 
vezérelték a gép konstruktőreit, pontosabban 
a BASIC nyelv beégetett fordítóprogramjának 
készítőit a jelek megválasztásánál. A mondot- 
takat érdemes kipróbálni, egyszerű parancs 
üzemmódban: 

- a PRINT NOT(-1) begépelése és a New 
Line billentyűzése után a képernyőn a Ő szám 
jelenik meg; 

- a PRINT NOTK(0) után viszont -1 válik 
láthatóvá. 

Sőt, a reláció logikai értékét is láthatóvá tud- 
juk tenni az alábbi parancs begépelése és vég- 
rehajtása után: 

A — 5:B — 5:PRINT (A — B) 

és a képernyőn ezután -Il áll. 

Az IF-THEN között álló feltételt összeállít- 
hatjuk több relációból is. Ha például azt akar- 
juk előírni, hogy a feltétel csak akkor legyen 
igaz, ha Az — 1, és ugyanakkor Az — 10, 
akkor ezt a két relációt az AND (magyarul 
ÉS) jellel kapcsoljuk össze. Az IF(A- — 
— 1) AND (A- — 18) THEN PRINT A 
csak akkor nyomtatja ki a képernyőre az A 
értékét, ha a feltétel teljesül, azaz az AND-del 
összekapcsolt két reláció logikai értéke 
egyaránt , igaz". Mint láttuk, a NOT megvál- 
toztatja egy reláció logikai értékét, az AND 
a relációk logikai értékei közt jelent művelet- 
végzést. Emiatt a NOT és az AND logikai 
műveletek, és azok az IF-THEN közötti fel- 
tételek, melyekben relációkon vagy relációk- 
kal logikai műveleteket végzünk, logikai ki- 
Jejezések. Az AND művelet hatását egy táb- 
lázatban is megmutatjuk : 


Asz -1 Az —-1 (A: — 1) 
AND 
(A — 1) 
—1 (igaz) -1 (igaz) -1 (igaz) 
-1 (igaz) 0 (igaz) 0 (hamis) 
d (hamis)  -I1 (igaz) 0 (hamis) 
9 (hamis) — O (hamis) 9 (hamis) 
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Ebből láthatjuk, hogy két reláció AND kap- 


csolata csakis akkor igaz, ha mindkét reláció 
külön-külön is igaz. Az AND műveletet a 
filozófiától kölcsönzött kifejezéssel szoktunk 
konjunkciónak is nevezni. 


Ha azt akarjuk vizsgálni, hogy egy egész 
szám páros-e, vagy páratlan, akkor célszerű 
az INT(X) , belső függvényt" (ezekről egy 
más alkalommal szólunk) igénybevenni. Ez 
a lehetőség szinte valamennyi BASIC nyelv- 
járásnál megtalálható. A működése abból áll, 
hogy minden tizedes törtet csakis lefelé (szi- 
gorúan lefelé, mondják matematikusok) kere- 
kít. Ha csak pozitív tizedes törteket veszünk 
figyelembe, akkor azt is mondhatjuk, hogy 
azokból elhagyja a tört részt, csak az egész 
részt tartja meg. Pl. INT(3.7) — 3. Most té- 
telezzük fel, hogy N egy természetes szám, és 
nézzük meg, mit kapunk a képernyőn, ha az 
N-nek értéket adva, az INT(N/2) értéket 
nyomtatjuk ki. Ezután azt is vizsgáljuk meg, 
mi történik, ha az INT(N/2) 3k 2 értékét visszük 
képernyőre. Az alábbi táblázatból ezt láthat- 
juk: 


N INT 
(N/2) 


[/ 


INT 
(N/2) 
x2 


INT 
(N/2)x2— 2 


hamis 
igaz 
hamis 
igaz 
hamis 
igaz 
hamis 


5AaAM A ULNE 
WV NV E 
AARADRDNRA 


Mindez ellenőrizhető pl. az N — 4:PRINT 
INT(N/2); INT(N/2)x2 parancs begépelésé- 
vel és végrehajtásával, esetleg másféle N érté- 
kek megadásával. A táblázat utolsó oszlopa 
az, amiért mi ebbe a gondolatmenetbe bele- 
kezdtünk: ugyanis az INT(N/2) x2 — 2 relá- 
ció csakis akkor igaz, ha N páros szám. Ezzel 
lehetőségünk nyílik egy tetszőleges pozitív 
egész szám párosságának (vagy páratlanságá- 
nak) vizsgálatára. 


Legyen most az IF-THEN utasításban az 
az igaz feltétel, hogy az N pozitív egész szám, 
ha 50-nél kisebb, akkor csak páros, ha 50-nél 
nagyobb, akkor bármilyen lehet. Ezt két relá- 
cióval és azok OR-ral való összekapcsolása 
útján fejezhetjük ki: 


vagy az igaz, hogy INT(N/2) x2 — 2, 
vagy az igaz, hogy Nt 58, 
azaz IF (INT(N/2) x2 — 2) OR (N- 58) 


Az OR a , vagy" kapcsolatot jelenti a két relá- 
ció között, mégpedig úgy, hogy akár az egyik 
reláció igaz, akár a másik, akár egyszerre 
mindkettő, a feltétel igaz. Miután az OR is 
műveletet végez a relációk logikai értékével, 
ez is logikai művelet, ill. példánkban az IF- 
THEN között most is logikai kifejezés áll. 
A szóban forgó OR kapcsolat táblázatát az 
alábbiakban láthatjuk (most már csak a logi- 
kai értékek gépi jelölésével). 


INT(N/2) " N250 — (INT(N/2) 
HD X2— 2) OR 
(N- 50) 
-1 -1 -1 
-1 [4 -I 
[7 -1 —-1 
[/] [d [/) 
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Az OR műveletet szokták diszfunkciónak is 
nevezni. 


Ebből leszűrhetjük, hogy az OR kapcsolat- 
ba hozott relációk logikai kifejezése csakis 
akkor hamis, ha mindkét reláció hamis. 

Az eddigiekben tehát három logikai műve- 
letet ismertünk meg, az AND, az OR és a 
NOT műveleteit. A BASIC ezeknél több lo- 
gikai műveletet nem tartalmaz. Mint láttuk, a 
logikai kifejezés nem mindig egyszerű, sőt a 
bemutatott példáknál sokkal összetettebb, 
több AND, OR és NOT műveletet tartalmaz- 
hat, sőt a relációkon belül algebrai kifejezés- 
részek is szerepelhetnek. Bármily összetett le- 
gyen is, kiértékelése után csak igaz, vagy ha- 
mis logikai értéke lehet. A számítógép a logi- 
kai kifejezések kiértékelését is hasonló prece- 
denciaszabályok szerint végzi, mint ahogyan 
azt az algebrai kifejezések eseteire már láttuk. 
Pl. az (X1t23-2XxX-1 —§) OR (X—-.5) 
logikai kifejezés végrehajtásának sorrendje a 
következő : 

- X12 kiszámítása 

— 2 XX kiszámítása 

- összevonás a bal reláció bal oldalán 

— a két reláció logikai értékének kiszámítása, 
külön-külön 

- a logikai értékek közt az OR művelet 
elvégzése. 

A logikai kifejezés általános feldolgozási 

menete: 

-— először az algebrai kifejezésrészek kiszá- 
mítása, a tanult precedencia- és balról 
jobbra szabály szerint; 

- másodszor a relációk logikai értékének 
megállapítása következik 

- harmadszor a NOT művelet végrehajtása 

- negyedszer az AND művelet elvégzése 

— utoljára az OR művelet elintézése kerül 
végrehajtásra. 

Végül néhány kiegészítő megjegyzés : 

A logikai kifejezésben nem kell feltétlenül 


relációnak is szerepelnie, léteznek program- 
nyelvek, melyek logikai azonosítókat hasz- 
nálnak. Miután a BASIC-ben ilyen nincs, erről 
nem esett szó. De ha az. A és B azonosítóknak 
-1 vagy Í értékeket adunk, akkor a BASIC is 
elfogad ilyen alakú logikai kifejezéseket: 

A AND B OR A AND C vagy 
"(B OR C) AND (A OR D) 

(Sajnos a HT 1080 BASIC-je elfogad más érté- 
kekkel is logikai kifejezést, de ilyenkor a ka- 
pott kifejezés logikailag nem értelmezhető.) 

A zárójel használatával kapcsolatosan a kö- 
vetkezőket vegyük figyelembe: 

- az IF-THEN közé eső kifejezés egészét 
nem muszáj zárójelbe tenni, mivel maga 
az IF és THEN szó helyettesíti azt; 

- a logikai kifejezésekben álló relációkat 
tanácsos minden esetben zárójelbe tenni, 
már csak az áttekinthetőség érdekében is, 
de vannak esetek, amikor ez nem kötelező ; 

-— a logikai kifejezésekben az AND logikai 
művelet analóg az algebrai szorzással, 
az OR logikai művelet pedig az algebrai 
összeadással; ez az analógia abból is adó- 
dik, hogy a  precedenciaszabályban 
ugyanúgy követi a szorzást az összeadás, 
mint ahogyan az AND-et az OR, emiatt 
a zárójel használatára is az érvényes, az 
AND és OR esetében, amit az algebrában 
már megszoktunk; erre láthatunk példát 
a legutolsó két bemutatott logikai kifeje- 
zésekben. (Analógiák : a-b -t-a-c, ill. (b--c) 
(a-d). 

A logikai műveletekkel sok olyan feladat 
oldható meg, amely más módon, pl. algebrai 
úton, vagy a középiskolából ismert függvé- 
nyekkel nem lehetne elvégezhető. Ezért az ál- 
taluk nyújtott lehetőség valamennyi progra- 
mozási nyelvben nélkülözhetetlen. 

Reméljük, hogy további próbálkozásaik 
során sikerrel fogják ezeket is alkalmazni. 


ADA-WINTER PÉTER 


FILE KONVERTÁLÁS 


Figyelmükbe ajánljuk alábbi programtermékünket: 
Mikroszámítógépeken CP/M vagy vele kompatibilis ope- 
rációs rendszer felügyelete alatt floppy disk-re ASCII kód- 


é ban felírt file-ok átkonvertálása RSX operációs rendszer 
És alatt szabványos FILES-11 file-okká, valamint RSX file-ok 


átvitele CP/M disk-re. 
Működési környezet: 


e TPA 1140/48 vagy vele kompatibilis számítógép leg- 
alább 256 Kbyte memóriával 
e minimum 1 db MFU-2 vagy vele kompatibilis floppy 


diszk kezelő egység 


val 


Forgalomba hozza: 


g 
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e RSX-11M operációs rendszer 3.1 vagy későbbi verzió- 


e memória rezidens FCS könyvtár 


Alkotó Ifjúság Egyesülés 
Számítástechnikai Irodája 
Budapest V., Garibaldi u. 2. 
Telefon: 112-666, 113-608 
Levélcím: 1519 Budapest, Pf.: 330. 
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Rajzoló 


A feladat az, hogy írjunk rajzoló programot, 
amely a GET illetve az INKEY utasítást hasz- 
nálja és az egyes billentyűkkel vonalakat il- 
letve egyéb jeleket rajzol a képernyőre. A meg- 
oldás az egyes számítógéptípusokon más és 
más, mi most Commodore-on. mutatunk be 
egyet. Pontosabban nem is teljes megoldást, 
inkább csak . ötleteket kívánunk adni a meg- 
hogy a programot tetszés szerint tovább bő- 
vítse, hiszen a számítógépen nagyon sok bil- 
lentyű található, és mindegyik egy-egy rajzoló 
funkciónak felelhet meg. 

Az első utasítás természetesen a GET utasí- 
tást tartalmazza. Itt figyeli a billentyűzetet a 
számítógép és ha üres karaktert olvasott be, 
akkor visszaugrik ismét a billentyűzetet figyelő 
GET utasításra. Válasszunk ki most 4 billen- 
tyűt a számítógépről! Elhelyezkedésüknél 
fogva mi az F, T, B, H billentyűt jelöltük ki 
és ezekkel húzunk vonalat a képernyőre. 
Vagyis olyan programot írunk, amely egy- 
egy billentyű lenyomásánál vízszintes, illetve 
függőleges vonalakat rajzol. A vízszintesen 
jobbra rajzoló billentyűnk a H lesz, tehát ha a 
H billentyűt nyomtuk le, akkor ki kell írni 
egy vízszintes vonalat. Ez a C billentyű má- 
sodik funkciója. Nem szabad elfelejteni, hogy 
a PRINT utasítást ;-vel fejezzük be. A követ- 
kező az F billentyű lesz, amivel balra szeret- 
nénk vonalat húzni. Megint vízszintes, tehát 
az előző karaktert használjuk, azonban ké- 
nyelmes lenne, hogyha F betű minden lenyo- 
mására balra tudnánk haladni a képernyőn. 
A PRINT utasítás alapvetően jobbra ír a 
képernyőre, ezért itt biztosítani kell a vissza- 
lépést. Ezt úgy tehetjük meg, hogy kétszer 
egymás után a kurzor vissza billentyűt nyom- 
juk le, amelynél inverz karakterek jelennek 
meg a képernyőn, de ez minket nem zavar, 
mert funkcióját így is teljesíti. 

Következik a vonalhúzás lefelé, erre a B 
betűt választottuk ki. Ezúttal függőleges vo- 
nalat rajzolunk a képernyőre ez a B betűnek 
a második funkciója és a kurzort eggyel visz- 
sza, vagyis balra és eggyel lefelé léptetjük. 
Végül vonalhúzás fölfelé T betűvel. Ismét 
függőleges vonal, ezúttal fölfelé léptetjük a 
kurzort és vissza. Végül pedig visszaugratunk 
a IHR-as sorra. 


Természetesen ezek után még átlós irányba 
is lehetne vonalakat húzatni újabb 4 billentyű 
segítségével, most azonban inkább a program- 
nak egy hibáját küszöböljük ki, azt hogy nem 
látszik a következő billentyű lenyomásakor, 
hol fog megjelenni a vonal. Ezért egy pont 
karakterrel jelöljük meg, hogy melyik lesz az 
a hely, ahová a következő karakter kerül. 
Ehhez ki kell bővíteni a IO0-as utasítássort; 
PRINT "." (O betű második funkciója) és 
egy kurzor vissza. Nem szabad elfelejtkezni a 
kettőspontról, amely az utasításokat elválaszt- 
ja egymástól. 


Végül egy harmadik ötletként, egészítsük 
ki a programot, hogy ezt a pontot vagyis ezt 
a jelet úgy is lehessen mozgatni a képernyőn, 
hogy közben semmit nem rajzolunk. Ez a 
semmit nem rajzolunk megfelel annak, hogy 
üres betűkaraktereket írunk a képernyőre. 
Természetesen ebben az esetben is szükség 
lesz a már látott kurzorvezérlő karakterekre. 


RERDIY., 
198 FRINT"OAI" ; : BETRZ : IFAS$z""THEN189 
118 IFRASZ"H"THEMPRINT"""; 


128 IFR32Z"F"THEMPRINT"-A8I"; 
1538 IFFA$-"B"THEMFRIMT" INNI": 
149 IFRZ-"T"THENFPRINT" ta; ; 
159 IFRSZ"WPTHEMFRINT" "; 
163 IFRZ-"NTHEMNPRINT" UI"; 
1798 IFRZ-"W"THENFRINT" Ma"; 
1898 IFRIZ"TTTHEWNFRINT" 7RI"; 
299 GOTO1A9g 

REANY , 


Egy információ a TV-BASIC tan- 
folyam nézői számára: a tanfolyam 
anyaga rövidesen ún. oktatócsomag 
formájában is hozzáférhető lesz. Az 
oktatócsomag tartalmazza a televíziós 
adásokat videokazettán, természete- 
egy felhasználási 
útmutatót, valamint a tv-adásokban 
szerepelt példaprogramokat és to- 
vábbi gyakorlófeladatokat magneto- 
fonkazettán, illetve mágneslemezen, 
tehát közvetlenül a számítógépbe 
tölthető formában. 


sen a tankönyvet, 


gram vagy "helye- 
ló, KORL KÉS A 


Kiegészítések 
az adat- 
állományok 
kezeléséhez 


Mind a tv-sorozat, mind a hozzákapcsolódó 
könyv kimerítően foglalkozik az adatállomá- 
nyok kezelésével, és a könyv két idetartozó 
programnak a listáját is tartalmazza. Ezért itt 
most az anyagnyilvántartó programrendszer 
egy újabb tagját mutatjuk be, amely egyszers- 
mind házifeladat is 

Ez a készletjelentést elkészítő program. 
Ennek az a feladata, hogy az állományban tá- 
rolt anyagok adatait (azonosító, név, mennyi- 
ségi egység, mennyiség) táblázatos formában 
kiírja a képernyőre. 

A program kezdetén el kell készíteni a fej- 
lécet (a táblázat címe és a táblázat oszlopainak 
megnevezése), majd ezután következhet az 
egyes rekordok tartalmának kiírása. Ez a mű- 
velet nyilvánvalóan egy ciklust fog képezni, 
amelyet mindaddig végre kell hajtani, amíg 
van rekord az állományban, vagyis amíg az 
ST státuszbyte értéke 0, azaz vége nincs az 
állománynak. 

Azt is figyelembe kell venni, hogy a kép- 
ernyőn egyszerre csak néhány sort lehet meg- 
jeleníteni, és ez is elszalad, ha nem állítjuk meg. 
Fzért, amikor a képernyő megtelik a kiírást 
meg kel! állítani, és csak akkor szabad tovább 
engedni, ha a felhasználó erre engedélyt ad 
vagyis amíg egy kérdésre be nem ad egy enge- 
délyező választ (]). Ezért az engedélyezést és 
az állományvége adatot együttesen kell vizs- 
gálni. Ha mindkettő lehetővé teszi a folytatást, 
akkor kell csak visszatérni a 270. sorra. Ellen- 
kező esetben a műveletet abba kell hagyni. 

A program utolsó moduljában találjuk a 
zárásokat. Mind az állományt, mind a listát 
le kell zárnunk. x 

KOCSIS ANDRÁS 
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189 REMikikikkkikkkkkkkkkk 3 LET Mzú j 


28 REMxz hd iü LIM ACZO, 2) 
38 REMr KESZLET x 28 FÜR Isi TO 24 
49 REMr x 30 FÜR Jsi TO 2 


ág LET AKI, JOÓSIMT £RMDkC 
58 NEXT J 

60 MEXT I 

7 FÜR Izi TÜ 28 
30 PRINT AT HEI,129,FAKI, 
38 MEXT I 
198 PRINT AT 15,29;"AGY! 
tte tET HAJHT CRHEKEZI 
129 LET Y5INT (RHUKZZI 
139 1F Xxsi5 AMD (vsz ÚR Y-21 ÖR Ys2z)D 


58 REMkikkikkikkikkikkkk Jálgri2 2? 
69 REMkkkkk FEJLEC KIIRAS kikkikk 
70 POKE 53288.,8 

89 POKE 53281,15 

98 PRINT"g" 

199 PRINT"íg" 

119 PRINT: PRINT 

1209 PRINT TAB(12); "KESZLETJELENTES" 
138 PRINT: PRINT 


22; nag 


149 Ss-B THEM GW TíJ 119 

145 F$z"I" 149 PRINT AT A.Yv."ü" 
1598 PRINT" AZONO-":" NEV 19353 LET HzWg 

"5 MENNY. —. MENNYI-" 148 LET Szsü 

169 PRINT" SITO":TAB(24); "EGYS. SEG" 154 LETT Mst4ti 


152 PRINT AT 8.6; "IDUS" ÍM 
160 IF IMKEYSZZ"B! THEN! GŰ TU 174 
161 IF Ysú THEM GU TO 1í78 

163 PRINT AT KV." " 


259 REMkkkikk ADATBEOLVASAS kkikkkik 
269 OPEN 2.8,2,."ANYAG,S./R" 
270 INPUTH2,.RA,.N$,M$,MI 


280 VIJZST is 

299 REMkikikikk KIIRAS kikkik mizzés zet Kgy te ABE 11 ES 

S08 FRINT 179 IF IHKEYHEZ!"E" THEM! GÜ TO 188 
319 PRINT RA;TABC(19):N$; TAB(25) ; M$,TAB(339MI 171 IF X5s2Z1 THEN GŰ TO 1889 

329 s-St1 173 PRINT AT OKAY." " 


339 IF S$235 THEN 359 

349 GO TO 4609 

3509 REMk THEN AG k 

360 PRINT 

370 INPUT"FOLYTASSAM ? CI/N) ":F$ 
399 IF F$-"I" AND VJ:O THEN 419 
499 GO TO 440 

410 REMk BELSO THEN AG : 

4e0 s-o 

4309 G0 TO 270 

449 REMk BELSO IF VEG x 

459 GO TO 489 

469 REMk ELSE AG § 

470 IF VJ:0 THEN 270 

480 REMk IF VEG 4 

569 REMkkkikk ZARASOK kkikkkkk 

5709 CLOSEZ 


174 LET XsX41 

176 PRINT AT XKÖYGYOY 
189 IF IMHKEYSCZ"Z" THEN! Gü TO 198 
181 IF Xxsü THEM Gü TO 198 

183 PRINT AT X,.€;"" 
184 LEV Xzk-1 

186 PRINT AT X,V."0" 
199 IF IHKEYSZZ"BY THEM! GŰ TŰ 24 
191 IF vYs3i THEM GŐ TO 2ü4 

193 PRINT AT X/Y.5"" 
194 LET YsY-r1 ] 
196 ERIWT AT X,7."0" 
zőm IF Xzi5 FMHD vszG THEM 
216 IE szi5 AHPL Ofvsz ún ki 
FLASH 1; "ÜSSZETÜRTEG MELEL" 
215 GÜ fÜ 158 
ezk FOR as 
230 FÜR b 


e] 
"a, THEM FRIHT 


588 PRINT: PRINT! PRINT: 249 1F E ; éboasztit THEM FRIHT 
ss9 PRINT" VEGE" HT B, 2; 1 "CSALTAL": STOP 
elesek esa MEXT b 

6209 LOAD"MENU" 8 280 MEAT a 

aa8 EMD g7á PRIMHT  ELHSH 1: "GRHTULAÁLOK " 
READY. 


A , Szúnyog" című játékprogram listája 


Új mikroklubok 


Sorszám A klub neve Üzemeltető A klub vezetője Telefon  Látogatási időpont Gépek Díj 
i 


BST-024 Bolyai János Matematikai — Hubert Tibor péntek 18.00-20.00 konzultáció 


Társulat ELTE Tanárképző j kizárólag 
Főiskola, Budapest szaktanárok 
Kazinczy F. u. 23-27. részére 
BST-025 SPECTRUM 1084 Budapest Török László 134-954 — hétköznap: 14.00-21.00 50,- Ft/bérlet 
STUDIÓ Bacsó Béla u. 40. II. em. szombat ) 10.00-18.00 800— Ft/ 
vasárnap ] k 20 óra előzetes 


jelentkezés 


CEG-00I CÁTPCklub Ceglédi Állami Bobál István 11-277 — hétfő stbsieog ÚT 20 A 
Tangazdaság Tóth Mihály 11-277  —— péntek 1 "Commodore 64 
2700 Cegléd, Bede u. 575. 3 PTA 4000 

HDS-O01I BASICklub Városi Könyvtár Szécsy Ferenc  115/43 hétfőtől péntekig 2tCommodore64 50,- Ft 
és TIT Városi Szervezete 13.00-18.00 2zXSpectrum (negyedév) 
Hajdúnánás, Bocskai u. 13. 3$7ZX-81 

KKH-001 Bács-Kiskun megyei Lunger Pál 11-366 kedd Ez; 
Vízmű Vállalat VízműKlub Nagy Sándor szerda 16.00-20.00 
Kiskunhalas, Brinkus L. u. 1. csütörtök 

SRD-001 Ady Endre Gimnázium Schneider kedd 8.00-10.00 1080 Z 


5720 Sarkad, Vasút u. 2. Ferenc kedd 10.00-12.00 )JMABLE-3 


csütörtök 17.00- 19.00 
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Hi 
Hi 
HI 


A READ, DATA utasításpár 
használatára láttuk az alábbi 
példákat a 13. adásban. 


A program az angol ABC 26 
betűjéből összeállított tetsző- 
leges szöveget alakít át morse- 
jelekké. 


Az első részben (5—30, utasí- 
tás) definiálunk egy egydimen- 
ziós 26 elemű tömböt, és ezt 
feltöltjük a morsejelekkel úgy, 
hogy a tömb első eleme az 
első betű morsejele második 
eleme a második betű jele stb., 
az ABC sorrendnek megfele- 
lően. 


A READ utasításban a tömb 
elemei szerepelnek, A$ (D 
változóként. A DATA utasí- 
tás adatai közül mindig a soron 
következő kerül a READ vál- 
tozójába. 

A DATA utasításban az ada- 
tokat vesszővel elválasztva 
kell felsorolni. (Itt ábécé sor- 
rendben a morsejelek az ada- 
tok). Egy programban több 
DATA sor is szerepelhet. 
A DATA sorokat a program 
tetszőleges helyére írhatjuk, de 
célszerű elkülöníteni az átte- 
kinthetőség kedvéért. Fontos 
tudni, hogy a program az 
adatokat a DATA utasítás 
sor sorszámai szerint (növekvő 
sorrendben) használja fel. 


Vigyázni kell arra, hogy az 


MLLE 
jztaőó 


I! A 


ui 


Számítástechnika 


15 3 


Rovatszerkesztő: HEGYI ISTVÁN 


utolsó adat után ne tegyünk 
vesszőt, valamint arra, hogy a 
READ utasításban szereplő 
változó típusa megfeleljen a 
DATA utasításban szerelő 
adattípusnak. (Numerikus vál- 
tozóhoz numerikus adat tar- 
tozhat stb.) 

Ha kevesebb adatunk van a 
DATA utasításban, mint ahá- 
nyat a READ igényelne, hiba- 
üzenetet kapunk. 


REM 4kk 
PRINT "úg" 
PRINT " 
PRINT:PRINT 
DIM A$(ZB) 


Sa 


RERD AZS(I? 
NEXT I 
INPUT 
PRINT:PRINT 
K-LENÉTSE) 

FOR Jt:1 TOK 


WV RW TŰ e 


DD 
96 


MŰRSE 


FOR I-A TO 25 


"KEREM A SZŰVEGET" 


Read, data — morse 


RESTORE utasítással az 
adatmutató az első adatra ál- 
Títható vissza. 

A program 40. utasításában 
kérjük a szöveg megadását, 
majd a LEN függvény segít- 
ségével megállapítjuk a szöveg 
hosszát. 

A 60-90. utasítás egy ciklus, 
melyben a MID függvényt 
használva az átalakítandó szö- 
vet karaktereihez férünk hozzá, 


4xk 


:T$ 


ME-MIDEÁ(TH$,IJ,12 
PRINT AS(ASC(M$I-ASCKC "TA" I); " 


WNEXT J 


199 PRINT":PRINT:PRINT 
LEGE RT ax d azza 


1919 DATA 


19038" BATA. ss 


LK LL ES E EK EN EK Blum 
1828: DATA —ezzzs 


pie 


gap. A ET 


Figyelem! 


A TV-BASIC vizsga jelent- 
kezési határideje április 30- 
án lejár. 
nézőinket, — ill. 
akik vizsgázni szeretnének 
— és ezt eddig még nem 
tették meg 
adják postára a jelentkezési 
lapot! (Melyetismétközlünk 
a 25. oldalon.) 

A vizsgára való felkészülés- 
hez a tv-adások befejezése 
után is segítséget adunk a 
TV-BASIC rovatban. 


Kérjük azokat a 
olvasóinkat, 


—, mihamarabb 


egyesével az első karaktertől 
kezdve és kiíratjuk a neki meg- 
felelő morsejelet. A megfelelő 
jel kiválasztása úgy történik, 
hogy a karakter (betű) ASCII 
kódjából kivonjuk az A betű 
ASCII kódját. A különbség 
pedig megmutatja, hogy a 
tömb hányadik elemében van a 
megfelelő morsejel. Ezt írjuk 
ki. 

A kiírásnál a jeleket függő- 
leges vonallal választjuk el. 


HERNECZKI KATALIN 


SZÖVEG ATAÁALAKITASA MOR SE JELEKKE " 
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A tizenkettedik adásban ismer- 
tettük a torpedójáték program- 
ját. A játék lényege, hogy egy 
10 x10-es táblázatban elhelye- 
zett 5 elemű alakzatot kell meg- 
találni, az egyes elemeket , ki- 
lőni", Az alakzat szimmetrikus, 
kereszt alakú. 

Általában minden program- 
hoz célszerű és illik használati 
utasítást adni, tehát ebben a 
feladatban érdemes kiíratni 
PRINT utasításokkal a fel- 
használó részére a játékszabá- 
lyokat. Ez a listán nem látható, 
mert az adásban elhangzott. 

Fontos szerepük lehet a 
programban elhelyezett meg- 
jegyzéseknek (REM) is. Ezek 
természetesen nem a játéko- 
soknak szólnak, hanem annak, 
aki a programot módosítani, 
bővíteni szeretné. A megjegy- 
zések segítik a tájékozódást a 
programban. 

Nézzük meg a program egyes 
részeit közelebbről! 

A táblakészítés és a kiíratás 
hasonló szerkezető program- 
részletek. Mivel 2 dimenziós 
tömböt kezelünk, 2 egymásba 
ágyazott ciklust kell használni, 
hogy a tömb minden elemét 
elérhessük, értéket adjunk az 
elemeknek, illetve kiírjuk azok 
tartalmát. 


A 5 elemű alakzat középső 
elemének koordinátáit 2 vélet- 
lenszám generálásával hatá- 
rozzuk meg a 180, 190-es uta- 
sításokban. Az RND standard 
függvénnyel egy  véletlenszá- 
mot állítunk elő, amely a (0,1) 
nyitott intervallumba esik, 
tehát sem 0, sem 1 nem lehet. 
Ezt 8-cal szorozva a (0,8) nyi- 
tott intervallumba eső számot 
kaptunk, majd 1-et adunk 
hozzá, azaz a szám az (1,9) 
intervallumba esik. Ezután a 
szám egész részét vesszük az 
INT függvény segítségével és 
ehhez 1-et adva kapjuk az [1,9] 
zárt intervallumban eső egész 
számot. 

Az alakzat elhelyezése ez- 
után egyszerű értékadással tör- 
ténik. 

A játékrész a találatok gyűj- 
tőjének nullázásával kezdődik. 
Bár Commodore gépnél alap- 
értelmezés szerint nulla a nu- 
merikus változók kezdeti ér- 
téke, nem árt hozzászokni eh- 
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Torpedózzunk! 


hez a művelethez. Gyakran 
előfordul, hogy egy program- 
ban többször kell egy ún. gyűj- 
tőt törölni, és arról már a prog- 
ramozónak kell gondoskodnia. 
A 320 utasítás tájékoztatja a 
játékost, hogy sor-és eszlop- 
számot kell megadnia. 

Minden programmal fel kel! 
készülni arra, hogy hibás ada- 
tot ad meg a felhasználó, té- 
vedésből. A hibák jelentős 
része vizsgálatokkal kiszűrhető . 
A 340, 350-es utasítás megvizs- 
gálja, hogy a sor- és oszlop- 
koordináta valóban 1 és 9 
közé esik-e, ha nem hibaüze- 
netet adunk. X — 0 megenge- 
dett. 

Játékprogramoknál nagyon 
fontos, hogy ha meguntuk, 
abba lehessen hagyni a játékot 
a program normális futása 
mellett. Ebben a programban 
ezt ugy biztosítjuk, hogy az X 
változónak nulla értéket adunk. 
Ekkor a 370-es utasítás szerint 
a program befejező (kiírható) 
részére ugrunk. 

A 380-420 utasításokban 
megvizsgáljuk, hogy  célzá- 
sunk jó volt-e vagy sem és 
ennek megfelelő üzenetet kül- 
dünk a felhasználónak. Ha ta- 
láltunk, növelni kell a gyűjtőt. 
Ha 5-nél kevesebb találatunk 
van, ismétlődik a programrész 
a 320-as utasítástól a 430-ig. 
Ez a ciklus a program , lelke". 

Ez a rész egyébként bővít- 
hető, finomítható. Minden cél- 
zás után kiírható például az, 
hogy hány találatunk van. De 
bővíthető úgy is, hogy minden 
célzás után megvizsgáljuk az 
alakzat középső elemétől való 
távolságot, és aszerint hogy 
milyen közel vagyunk, a ,,hi- 
deg, meleg vagy langyos" 
üzenetet írjuk ki. 


Módosításnál érdemes át- 
gondolni újból a programrész 
működését, mert nemcsak új 
sorok beszúrásáról van szó, 
lehet, hogy néhány utasítás 
korábbi sorrendje sem lesz 
megfelelő. Pédául, ha a talá- 
latok számát kiíratjuk, biztos, 
hogy a 420-as utasításnak meg 
kell előznie a 400-as sort. 

Jó munkát! Jó torpedózást! 


HERNECZKI KATALIN 


17 REM K4XXXKKZXZZKIKHKEKKKTARRÁKKEKKTKÁ 


20 REM x x 
30 REM x TORPEDO x 
48 REM x xX 
50 REM £4A4EXKKXKZKKNKKKRKÁKETAkkkkákkák 
68 REM 

70 REM 4x TABLA KESZITES Xk 

88 REM 


39 DIM T$(13,19) 
198 FOR I-1i FU 10 
118 FGR J:1 TO 19 
128 T$(I,Jd-"." 
139 NEXT J 


143 NEXZT I 

159 REM 

168 REM 44 VELETLENSZAMOK 44 
179 REM 


1989 XA-INTÁÍRNOK(i)xSti)ti 

198 Y-INTÁÍRND(iI)4St1)ti 

enn REM 

2ig REM 44 ALAKZAT ELHELYEZES §xr 
228 REM 

e39a T$B(X,Y2z"oO" 

240 T$(X-1,Y)-"a" 

259 T$(XtÍ,Y)-"o" 

260 T$(X,Y-1)-"ü0" 

270 T$(X,Yt1)-"0o" 


2es8 REM 

egg REM 44 JATEK kk 

399 REM 

319 5-a 

3288 PRINT "KEREM A SŰR,OSZL SZAMOT"; 
339 INPUT A,Y 

349 IF XCO GR X.19 THEN PRINT 


"HIBAS SORSZÁM" :GÜTG 3720 
359 IF YC-B OR Y.18 THEN PRINT 
"HIBAS OSZLOPSZAM":GOTO 326 


370 IF X-0 THEN GOTC 488 

389 IF TE(X,Y)-"." THEN PRINT 

"NEM TALALT": TEXX,YIz"er:GOTO 320 
390 IF TECX,Y)-tE" OR TE(M,YDz" ő 
THEN FRINT "KORBBBI CELZAS":GOTŰ 320 
499 PRINT " ATALALT!M" 

418 TEC(X,Y)sE"K" 

aza 5-sti 

439 IF S-5 THEN SOTO 322 

449 IF S§-E THEN 

PRINT "GRATULAÁLUK, B TÁLALÁT!" 

aza REM 

459 REM x4k KIIRATASI 44 

478 REM 

498 FOR 1zi Tb 18 

439 PRINT:PRINT 

5AB3 FOR Jzi TC 18 

S18 PRINT " HETECI [JO 

528 NERT J 
Ef MEXT I 
S49 CRINTIPRINTIPR 


sziets EPS ] 


Érettségizők, 
érettségizettek, 
figyelem! 


Államigazgatási területre, előadói 
munkakörbe (3100 Ft-os kezdő- 
fizetéssel), ellenőri "munkakörbe 
3400 Ft-os kezdőfizetéssel) fel- 
vételt hirdet. 

Szociális juttatások: 

téli, nyári üdülési lehetőség, saját 
arte tjátá (Mátrában és a Balaton- 
nál), 

gyermekek részére bölcsődei, óvo- 
dai elhelyezést, valamint kedvez- 
ményes étkezést biztosítunk, 
továbbtanulást támogatunk, tanul- 
mányi szerződést kötünk. 
Budapesti és Pest megyei Társa- 
dalombiztosítási Igazgatóság 
személyzeti és munkaügyi osztálya, 
Budapest VIII., Mező Imre út 19/b. 
I. em. 162. Telefon: 330-509, 
107-es vagy 108-as mellék. 


HÚSIPARI 
MŰSZAKI 
FEJLESZTŐ 
KÖZÖS VÁLLALAT 


Budapest IX., Gubacsi út 6/b. fel- 
vételre keres 
GÉPÉSZMÉRNÖKÖKET 

húsipari gépek tervezésére, lisinge- 
lésre, keresünk még üzemgazda- 
sági osztályvezetőt, utókalkulátort, 
anyagkönyvelőt, gondnokot, gép- 
kocsivezetőt, könyvelőt és admi- 
nisztrátort. 


Jelentkezni lehet a 337-350 tele- 
fonszámon. 
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VIZSGAELŐKÉSZÍTŐ 
TANFOLYAM 
A SZÁMALKNÁL! 


A tanfolyamokat a május 27-i vizs- 
gát megelőző hetekben tartjuk. 


A tantolyamok díja a jelentkezők lét- 
számától függően 800-1500 Ft. 


A beiskolázásokat a beérkező jelent- 
kezések sorrendjében teljesítjük. 


A Jelentkezési Lapon a korlátozott 
létszám miatt kérjük, hogy több le- 
hetséges időpontot jelöljön meg. 


! Jelentkezési Lap 


délelőtt délután 
$.15-4-13.00) 14.30-19,15 
május 13-17 !)]) Hi 
május 20-24 í/] [] 
Név: 
Cím: 


SZÁMÍTÁSTECHNIKA 
ALKALMAZÁSI 
VÁLLALAT 


BUDAPEST XI., 
Szakasits Á. 68. 

1502. Bp. 112. Pf. 146. 
Telefon: 853-111 
Telex: 22-4498 


öle GZ lök Esz. rés dsszzalszásatazásánb4 siErasinébz stsa [Só 


Rovatszerkesztő: HEGYI ISTVÁN 


Újabb feladatok 


Térjünk vissza még egy feladat erejéig az ún. 
, egyszerű" rajzolási módszerhez, amelyben a 
számítógéppel úgy készítünk rajzot, mint egy 
közönséges írógéppel. A különbség csupán 
annyi, hogy a rajzkészítést programmal irá- 
nyítjuk. 

Rajzoljunk ki a képernyőre egy rendkívül 
egyszerű görbét, a sinusfüggvény egyetlen 
periódusát. 

A számítógépes rajzkészítés egyik praktikus 
alapelve az, hogy az x és y tengelyből álló 
koordináta-rendszert elforgatjuk úgy, hogy az 
y tengely legyen vízszintes és az x tengely pe- 
dig függőleges. Ha ebbe a koordináta-rend- 
szerbe rajzoljuk be a sinusgörbét, akkor azt 
láthatjuk, hogy a képernyő soraival a görbét 
felszeleteljük. Ebből következik, hogy egy-egy 
sorban a görbét egyetlen kiírható karakterrel 
(pl. csillaggal) helyettesíthetjük. Ezek a karak- 
terek végül is a görbét adják ki. 


Most már csak az a kérdés, hogy hogyan 
lehet ezt a megoldást programozni? Először is 
a -1 és 4-1 értéktartományban kígyózó görbét 
úgy kell transzformálni, hogy a kirajzolni kí- 
vánt hullám minél jobban betöltse a képernyőt. 
Ha például azt akarjuk, hogy a két hullám 
csúcsa 28 szóköznyi távolságra essen egymás- 
tól, akkor a függvényértéket 14-gyel kell meg- 
szorozni (az x tengelytől jobbra is 14 és balra 
is 14). Ezzel még mindig negatív értéket is 
kapunk, amit a nyomtatásnál nem tudunk 
hasznosítani. Ezért az egész értéktartományt 
jobbra toljuk úgy, hogy az x tengely a kép- 
ernyő közepére essen (C-64 esetében ez 20 
hozzáadását teszi szükségessé a függvényérték- 
hez). Ezzel a görbét már betranszformáltuk a 
képernyő közepére, most már csak azt kell 
elérnünk, hogy a teljes hullámot minél jobban 
széthúzzuk a képernyőn függőleges irányba. 
Ha 22 sort akarunk a rajzoláshoz felhasználni, 


A TV-BASIC előadói a sorozat befejező adásában 


akkor a teljes görbét 22 sorra kell felbonta- 
nunk, vagyis az ívmértékben 2-3,14 hosszú- 
ságú x tengelyszakaszt 22 egyenlő részre kell 
felbontani. Minden részben ki kell számítani 
a függvényértéket és a függvényértéknek meg- 
felelő helyre a képernyőn ki kell írni egy csil- 
lagot. A helyőrt a TAB(X) függvény segít- 
ségével visszük a csillagkiírás helyére. 

A program elkészítésének ez az elve. A raj- 
zolóprogramot annyival bonyolítottuk, hogy 
az X tengelyt is kiíratjuk vele. Hogy ezt hogy 
19 REMXEKREKRKRERKkkk kk kkök 
eZ REMxk x 
30 REMX SINUS GORBE £ 
49 REMxk k 
50 REMKEKEKKREKKKKKK KKK 
ED REMkikEKK Y TENGELY 
£5 PRINT"A7" 

70 FOR Izi1 TO 39 
82 PRINT"— 
sa 
as 


XXXEK 


NEXT I 

PRINT 
109 REMkkikikk RAJZ KESZITES 
195 PI-3.1415 


119 FOR X5-PI/11 TÜ 2xPI 


YEÍI4XSIN-KItED 
130 IF 


a 
s 
s 
ő 


vYced THEN 159 

9 GI TO 180 

OD REM THEN AG :k 

2 PRINT TABC(Y?: "ax"; 

€ PRENT INBESOII "1" 

69 TE 299 

REMk ELSE AG ak 

IF Y-Z2A THEN 220 

GO TO 250 

REMxr 2.THEN AG x 

PRINT TAB (Y23"x" 

60 TO 230 

REMk 2. ELSE AG 4 
I! PRINT TABÁZO2?" j"; 

"2 PRINT TAB(Y2? "e" 

REM 2. 


lehet elérni, hamar rájöhetünk magunktól is, 
de a program listájából is , kipuskázhatjuk". 

A program bizonyára könnyen érthető. Ez- 
zel a módszerrel tetszés szerinti görbét, egye- 
nest ki lehet írni, csupán a transzformációt 
kell jól átgondolni, és elvégezni. Próbáljuk 
meg más görbékkel is! 


Innovációs vállalat keres felsőfokú 
végzettséggel rendelkéző, gyakorlott 
számviteli csoportvezetőt, valamint 
munkaügyi előadót. Jelentkezés: 
314-179, Dancsóné. 


KULTURINVEST Fővállalkozási Betéti 
Társulás gyakorlattal rendelkező pénz- 
ügyi előadót keres felvételre. Jelentke- 
zés: önéletrajzzal, Bp. XII., 
u. 11. Telefon: 359-100 


Tóth Lőrinc 
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hi 


; adatot azzal, 


Egy játék 
Most pedig készítsük el egy ősi 
játék programját. (Tankönyv, 220. 
oldal, 3. feladat.) 

Készítsünk egy olyan progra- 
mot, amely pénzt , dob fel", és 
nekünk pedig ki kell találni, hogy 
hogy esik le a pénz. Persze, ezt 
csak képletesen értjük, hiszen a 
számítógép nem tud pénzt do- 
bálni, viszont a  véletlenszám- 
generátora segítségével elő tud 
állítani ,. Fej" vagy , Írás" érté- 
keket. 

Tegyük használhatóbbá a fel- 
hogy nem csupán 


Csupán egyetlen új , trükk" 
van a programban. Nevezetesen 
az, hogy hogyan lehet a véletlen- 
szerű fej vagy írás értékeket elő- 
állítani. Ez is roppant egyszerűen 
megoldható. A C-64 esetében a 
véletlenszám-generátor (RND) 0 


10 REM$Ekkkkkkkkkkkkik 
29 REMk k 
30 REMk PENZDOBBALAS k 
REMx x 
REMXKKEKKEKKEKEKKK 
POKE 53280.8 

FPOKE 532881.8 

PRINT "3" 


199 GOSUB 300: 


118 GOSUB 400: REMr 


ze zgegád "szög! e E$ZISSE 


REMittkikkik VEZERLO MODUL kiikik 
REMki FOGADAS ak 
FELDOBAS 1 


mény — mondjuk - írás, ellenkező 
esetben pedig fej legyen. 

Így tökéletesen szimuláljuk egy 
hibátlan pénzérme leesési esemé- 
nyeit. A program listája a követ- 
kező (lenti programleírásunkon). 

Mint látható, a szubrutinos 


419 
420 
439 
440 
450 
469 
470 
488 
490 
509 
E€20 


D-RNU(Aa? 


GO TO 


D£$-"FEJ" 


RETURN 


j 
KEZEBE EZT T TB], § FR OZ OMSREZETN 01 SZE74 
! 
! 
Í 


50 TO 4908 

REMk ELSE AG xx 
D$-" IRAS" 

REMk IF VEG 4 


dönti el, hogy az utolsó (fogadás 


. értékelő) modult végre kell-e haj- 


tani. A fogadás értékéből pedig 
a nyerés vagy a vesztés állapít- 
ható meg csalásmentesen. 
Próbáljuk ki a játékot! Egé- 
szítsük ki úgy, hogy ne csak betű- 


IF D2.5 THEN 440 
a7a 
REMY THEN AG kk 


REMkkiik EREDMENYKIIRAS $kkikik 


TEVET 7 


j j : HOGY N [129 GOSUB S99: REMk EREDMENY KIIRAS x 618 PRINT 
; a fej vagy írás értékeket kell ki- [ 139 1íF FEsz"I" THEN GOSUB 700: REMxk 628 PRINT"A DOBAS EREDMENYE: ";DE 
; írni, hanem tegyük lehetővé a gép [ A FOGADAS EREDMENYE 630 RETURN 
j előtt ülőnek, hogy fogadást is [ 148 Go To 390 700 REMEEkXk A FOGADAS EREDMÉNYE dkökkk 
köthessen arra, mi fog kijönni. ] 229 REMkkkkk FOGODAS kkkkkk 710 IF E$-D£ THEN 730 
E 3 z 318 PRINT"" 7e9 GO TO 770 
sv ézaző ba álat tés. 328 INPUT"AKAR FOGADNI? (I/ND";F$ 738 REMK THEN AG t 
8 f E ZAB 338 IF FEs-"I" THEN 350 749 PRINT 
ször meg kell kérdezni a játékost, [ 349 Go To 389 750 PRINT"GRATULÁLOK! ON NYERT!" 
hogy akar-e fogadni, és hogy mÍre ] 359 REMr THEN AG x 769 GO TO 829 
fogad. Ezt az utóbbi adatot meg [ 3288 PRINT: PRINT 770 REM$ ELSE AG x 
is kell őrizni. A következő mű- Í[ 372 INPUT"MIRE FOGAD? (FEJ/IRAS)";ES 789 PRINT 
velet a dobás. Ezután ki kell írni 375 IF E$£2"FEJ" AND E$£LD"IRAS" THEN 379. 790 PRINT"EZ NEM SIKERULT! ON VESZTETT!" 
az eredményt, és végül közölni ] 388 REMr IF VEG £ 890 REMk IF VEG £ 
kell, hogy nyert-e a játékos (ha [ 999 RETURN SEEK SEEMED 
498 REMkkkkk FELDOBAS kkkkk 9948 END 


egyáltalán fogadott). 
A programot szubrutinos szer- 


kezettel valósítottuk meg. Úgy 
gondoljuk, hogy a program semmi 
különös új ismeretet nem tartal- 
maz, amit egy jól haladó progra- 
mozó ne ismerne. 


és 1 közötti számokat állít elő, 
egyenletes elosztásban. 

Ezért nyugodtan azt mondhat- 
juk, hogy ha az előállított szám 
1/2-nél kisebb, akkor az ered- 


szerkezet miatt a program egy 
vezérlő modullal egészül ki. A 
fogadási modulban mind a foga- 
dás, mind az esemény értékét meg 
kell jegyezni, mivel az első érték 


vel írja ki az eredményt, hanem 
valami egyszerű ábrával mutassa 
is az eredményt! 


DR. KOCSIS ANDRÁS 


TV-BASIC jelentkezési lap 


Jelentkezés 
a TV-BASIC vizsgára 


Az előzetes jelzések szerint több ezren szeretnének a TV-BASIC- 
tanfolyam végén vizsgát tenni. Ilyen tömegű beszámoltatásra 
hazánkban eddig nem volt példa, ezért a vizsgával kapcsolatos 
tudnivalókat az alábbiakban röviden összefoglaljuk. 

1. A vizsgán tesztlapokat kell kitölteni, amelyeket a jelöltek 
a vizsga helyszínén kapnak meg. 

2. A vizsgára az alábbi lapon kell jelentkezni, amelyet meg- 
címzett és felbélyegzett válaszborítékka! együtt kérünk vissza- 
küldeni. 

3. A vizsga helyszínét a jelentkezések földrajzi eloszlásától 
függően fogjuk kijelölni. Budapesten több helyen, valamint a 
megyeszékhelyeken biztosan lehet vizsgázni. Ha egy-egy tele- 
pülésről, városból 50 főné! többen jelentkeznek, akkor az adott 
városban is biztosítjuk a vizsgázás lehetőségét. 

4. A vizsga helyét válaszlevélben adjuk meg, de a helyszíneket 
a TV-BASIC utolsó adásakor a tv-ben is közöljük. 

5. A vizsgabizottságot az NISZT és a SZÁMALK együttesen 
nevezi ki. 

6. A vizsgára jelentkezés határideje : 1985. április 30. 

7. A vizsga várható (előzetes) időpontja : 1985. május 27. 

8. A vizsga díja 200 Ft, amelyet előzetesen kell az NISZT 


Alulírott a TV-BASIC vizsgára jelentkezem: 
Név: 


Megye: 
Város: 
Utca, házszám: 


Személyi szám: 


(aláírás) 


Visszaigazolás 


A vizsga helye: 


időpontja: számlájára befizetni. A csekket a vizsga helyének visszaigazolá- 
sával egyidejűleg a jelölteknek megküldjük. A vizsga alkalmá- 
Név: val a vizsgabizottság a tesztlapokat és a befizetést igazoló átuta- 
lási szelvényt a jelentkezés visszaigazolása, valamint a sSze- 
Megye: mélyi igazolvány bemutatása mellett adja ki. 
9. A megoldott feladatlap átadásakor a személyi igazolványt 
Város: fel ke! mutatni. ; 
A szerzők nevében: 
Utca, házszám: Dr. Arató Mátyás Kovács Győző 
a SZÁMALK iroda vezetője az NJSZT főtitkára 
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Rovatszerkesztő: HEGYI ISTVÁN 


Néhány szó az adat- 
állományokról 


A tv-műsorban a legegyszerűbben kezelhető, 
ún. soros adatállományok használatát ismer- 
tettük. Kiegészítésképpen egy másik, szintén 
a C-64-en megvalósítható állománytípust mu- 
tatunk be. Ez az ún. relatív adatállomány. 

Először tisztázzuk, mit jelent az, hogy állo- 
mánytípus! Bármilyen típusú állományról is 
beszélünk, egy közös jellemzője mindegyiknek 
van: a felhasználó részére adatokat tárol. 
Tehát a felhasználó számára gyakorlatilag kö- 
zömbös az állomány típusa, ez csak a progra- 
mot író szakembernek jelent eltérést. Így van 
ez a relatív állománnyal is. 

Hogy a relatív állományok kezelését jobban 
lehessen látni, a tv-műsorban és könyvben is 
bemutatott példát (ill. annak egy részét) oldjuk 
meg a relatív állomány felhasználásával. 

A feladat megoldása előtt azonban tekint- 
sük végig a relatív állomány jellemzőit. A rela- 
tív adatállomány fő jellegzetessége az, hogy az 
1 állomány rekordjait sorszám szerint lehet 
elérni (olvasáskor és íráskor). Amikor egy 
rekordot ki akarunk olvasni, akkor meg kell 
adni a rekord sorszámát és csak azután lehet 
kiolvasni. Ha egy rekordot be akarunk írni az 
állományba, akkor szintén meg kell adni a 
sorszámát akár új rekordot (kiegészítés), akár 
meglevő rekordot (módosítás) akarunk átírni. 

Mi következik ebből? 

A legfontosabb következmény a sorszám 
szerinti hozzáférésből fakad. A lemezegység 
, Operációs rendszere"" úgy keresi meg a kívánt 
rekordot, hogy elindul az állomány elejéről 
és hogy megtalálja a kívánt rekordot, annyi 
egyenlő hosszúságú területet megy előre, ahá- 
nyadik sorszámú rekordot kell megtalálni. 
Ez a módszer csak akkor szolgáltat helyes 
eredményt, ha egyenlő hosszúságú rekordokat 
használunk. Ezt a hosszt az állomány létre- 
hozásakor meg kell adni. Értéke egyébként 

1-254 bájt. Kiszámítását a példában be- 
mutatjuk. A soros állományok esetében ez 
nem volt szempont, ott csak a rekordonkénti 
azonos mezőszám lényeges, de a mezők kü- 
lönböző hosszúságúak lehetnek (pl. a ,,FA- 
CSAVAR?" és a , KRETA" szöveges mezők 
hossza eltérő). 


Az egyenlő rekordhossz teszi lehetővé, hogy 
meglevő rekordokat. átírjunk, azaz módosít- 
sunk. Ez órási könnyebbség a soros állomá- 
nyokkal szemben, amelyeket csak úgy lehet 
módosítani, hogy átírjuk egy másik állomány- 
ba. 

Az egyszerűbb módosítási műveletnek az az 
előnye, hogy egy relatív állományt egy teljes 
lemezre fel tudunk írni, míg soros állomány 
esetében a maximális file méret a lemezkapa- 
citás fele lehet az átmásolások miatt. 

A sok előny mellett a relatív állomány sok 
tekintetben megnehezíti a dolgunkat. A fix 
rekordhossz betartására nekünk kell ügyel- 
nünk. Hogy a numerikus adatok hossza (bele- 
értve az előjel helyét is) ne okozzon gondot, 
ezért célszerű szöveges adatokként kezelni 
azokat. Ha billentyűzetről olvassa be a prog- 
ram, akkor eleve szöveges adatként kell be- 
olvasni. Ha pedig számítás eredményeként 
adódik az adat, akkor pedig az STR$ függ- 
vénnyel lehet átalakítani szöveges változóvá. 

Ez a korlát arra kényszerít minket, hogy 
egy relatív állomány létrehozása előtt jól gon- 
doljuk át, hogy melyik mező milyen hosszú 
legyen. Ennek egy részfeladata az a lépés, hogy 
meghatározzuk az előforduló számszerű ada- 
tok maximális értékét (a tizedespont is egy 
bájtot foglal el!). Azt is figyelembe kell venni, 
hogy az egyes mezőket egy RETURN jellel 
(CHRS$I[13)] kell elválasztani. 

A rekordok azonos hossza megkívánja, hogy 
az előírtnál rövidebb mezőket a programban 
a megállapított hosszra kibővítsük. Ellenkező 
esetben az adatok olvasásnál összekeverednek. 

Programozási szempontból egy rekordhoz 
való hozzáférés (írás v. olvasás) is bonyolul- 
tabb a soros állományokhoz viszonyítva. Az ol- 
vasni vagy írni kívánt rekordra egy, a parancs- 
csatornára (15) kiadott utasítással lehet rá- 
mutatni (formáját lásd a példában). Ebben 
egyebek között meg kell adni a kívánt rekord 
sorszámát binárisan, két bájton ábrázolva. 
Azért kell két bájt, mivel eggyel csak 255 re- 
kordot lehet címezni, kettővel viszont 65535-öt. 
Ehhez a rekord sorszámot minden rekord mű- 
velet előtt ki kell számítani az alábbiak szerint: 


S — a rekord sorszám BASIC formában 
(értéke max. 65535) 

B1 (a magasabb helyérték) — INT (5/256) 

BO (az alacsonyabb helyérték) — S-B1.256 

Így mind BO, mind B1l értéke egy 0-255 
közötti szám lesz, és énnek bináris formája a 
CHR$ függvénnyel kapható meg: 

CHRS$ (B1) — magasabb bájt tartalma 

CHRS$ (BO) — alacsonyabb bájt tartalma 

A pozicionáló művelet után lehet az írást 
vagy az olvasást végrehajtani. 


Ezek után nézzük meg, hogy hogyan kell 
programozni a relatív állományok kezelésével 
kapcsolatos lépéseket. 


1. Az adatállomány létrehozása 
Ezzel a művelettel hozzuk létre az állományt. 
Itt kell megadni a fontosabb paramétereket: 
az adatállomány nevét, az állomány relatív 
jellegét és a rekordhosszt. Ekkor adatokat nem 
írhatunk a file-ba. Az utasítás formája: 
100 OPEN i, 8, j , , név, L,"-CHR$(h) 
ahol: i — logikai hivatkozási szám 
8— a lemezegység száma (9 is lehet) 
j — csatornaszám 
név— max. 16 karakteres név 
h- a rekordhossz (bájtban). 


2. Az adatállomány formázása 

A létrehozási művelet nem hoz létre rekor- 
dokat, ezért egy következő lépésben célszerű 
kialakítani a feltételezhető maximális számú 
rekordot. 


Célszerű továbbá az egyes rekordokat meg- 
jelölni, hogy üresek. Ez többféleképpen elér- 
hető. Azt javasoljuk, hogy minden rekord 
első mezője egy egybájtos mező legyen, amely 


tartalma 

CHRS$ (255) 
(azaz 8 darab bináris 1) legyen, ha a rekord 
még üres, és értéke 0, ha már van benne vala- 
milyen használható érték. 


Meg kell jegyezni, hogy ez a lépés nem kö- 
telező, de ajánlott. Ha az állományt azeredeti- 
hez képest bővíteni akarjuk, akkor ez normál 
írási utasítással elvégezhető, tehát nem okoz 
gondot. 


A formázási művelet részletei a példa prog- 
ramban látható. 


Az adatállomány létrehozását és formázását 
egy programban érdemes elvégezni. 


3. Az adatállomány megnyitása 
Már meglevő adatállományt a 
200 OPEN i, 8, j, , név" 
utasítással lehet megnyitni (a jelölések ugyan- 
azok, mint fent). 


4. Írás az adatállományra 

Először a kívánt sorszámú rekordra kell a 
rekordmutatót állítani. Ez a parancscsatornára 
való írás formájában történik. Ezért a program 
elején meg kell nyitni a parancscsatornát: 

60 OPEN 15,8,15 

Ezután a pozicionálás az alábbi utasítással 
végezhető el: 


300 PRINT: 15, ,,P"--CHR$(i)-t 
-HCHR$(BO) (- CHR$(B1)--CHR$(m) 


ahol i — a logikai hivatkozási szám 
BO — a sorszám alacsonyabb helyértéke 
B1 — a sorszám magasabb helyértékei 
m — a rekordon belüli bájt sorszám, 


ahonnan az olvasást kezdeni akar- 
juk 
A pozicionálás előtt a BŐ és B1 értékét a fent 
megadott módon ki kell számítani. Az olva- 
sást ajánlatos mindig a 1. bájton kezdeni. 
Ezután az írás az alábbi formában végezhe- 
tő el. 


310 PRINT ik i, A$; CHRS$ (13); B$S; 

CHRS (13);... 

ahol i — az állomány logikai hivatko- 
zási száma 
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A$, B$ — azadatmezőkbe kerülő adatok 
CHRS$ (13); a mező elválasztó karakter 
(RETURN) 
Az írás előtt ne feledjük a mezők hosszát 
pontosan beállítani. 
5. Olvasás az adatállományról 
Az első részművelet itt is a pozicionálás, 
amely formailag megegyezik az írásnál bemu- 
tatott eljárással. Ezután a pozicionált rekord- 


ból a 
400 INPUT 4 i, A$, B$,. . 
utasítással lehet a rekord mezőit beolvasni. 

6. Az állomány lezárása az 

1000 CLOSEi 
utasítással történik. 

Megemlítjük, hogy a relatív állományok 
kezelése során hibafigyelést is érdemes végez- 
ni, de ezzel itt nem foglalkozunk. 

Most pedig nézzük a feladatot. Mint emlí- 
tettük ez ugyanaz a feladat, mint a tv-adásban 
is szerepelt és a könyvben is megtalálható 
(készletnyilvántartás). Ezért itt csak a relatív 
állomány kezelésével kapcsolatos eltéréseket 
emeljük ki. 


REMHk 
REMx 
REFAx 


CL0SEZ 


REM$kkkk ALLONMÁNY 
OPENS 8.5, "ANYAG" 
2z4£-CHRXHC(2SIIHOHRÉEK 132 
FOR Isíi 


) B1-INT(I/25€7 
B0-I-B1x2z568 
REMx4 REKORD FOZICIONKALAS ak 
PRINTR15,"P":CHR$(3) 1CHRE(CBO I FEHRECB1?.TÜHRS$Á 12 
REM URES JELZES 


REMkkkkkkkkkák kk kkkoik 


xk 


LETREHOZAS  x 


xk 


REPMkkkkikkkkkkkkkkek 
REMdkkikkkk INYITASOK 
CPENI5,8§,15 

OPENZ , 8, 2, "ANYAG, L , " FCHREÁ(S6B I 


$kkkkxk 


FORMAZAS kikkkk 


Tü 59 


REbis REKORŐ SORSZÁM xk 


:REMx FHAGASABB HELYERTEK kk 
:REMX ALACSONYABB HELYERTEK k 


IRAS X 


REMEkikákk ZARSSOK $trkkikk 


Első lépésben meg kell tervezni az állományt. PRINTHZ,Z£ 
Tegyük fel, hogy a raktárban legfeljebb 50 NEXT I 
különböző anyag lehet, ezért a maximális i 
rekordszám is 50. 

A rekordok felépítése az alábbi CLOSES 

hossz ELDSETS 
li (bájt) 
Üres-tele jelző 1 
elválasztó 1 


íf . 
fi GÉPI KÓDÚ 97? 
PROGRAMOZÁS 


SZAKKÖRÖKNEK! 


Csereutasítások 


A bevezetőben említettük, hogy a 280 CPU-nak AS", F",...,H", L" jelű 
regiszterei is vannak. Ezek kizárólag a most következő csereutasítá- 
sokkal érhetők el. 

EX AF, AF": ez az utasítás az AF és a A"F" regiszterpárok tartal- 
mát cseréli fel. 

EXX: ez az utasítás a DC, DE, HL regiszterek tartalmát cseréli fel 
a B, C, DE, HU regiszterek tartalmával. E két csereutasítás végre- 
hajtási ideje nagyon rövid, ezért előszeretettel használják gyors inter- 
rupt szubrutinokban. További csereutasítások is vannak, ezeket is 
tartalmazza a következő táblázat. 


Utasítások Kódja 
Tízes Hexa 
EX DE, HL 235 EBH 
EX AF, AF" 8 O08H 
EXX 217 D9H 
EX (SP), HL 227 E3H 
EX (SP), IX 221 227 DD E3H 
EX (SP), IY 253 227 FD E3H 


Ezek az utasítások a flageket nem változtatják meg. 


Egyéb utasítások 


DAA: az A akkumulátor tartalmát BCD formának megfelelően át- 
alakítja a H és N flagek értékének figyelembevételével. 
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CPL: (complement accumulator): az A regiszter bitjeit ellenkezőre 
váltja át. 

NEG b ség accumulator) : az A tartalmának kettes komplemensét 
képezi. Értéke eggyel több, mint CPL eredménye. 

CCF (complement carry flag): a carry flaget ellenkezőjére váltja át. 

SCF (set carry flag): 1-et rak a carry filagb2. 

Megjegyezzük, hogy a cárry flag törlését SCF után adott CCF 
utasítással vagy pl. XOR utasítással érhetjük el. 

NOP (no operation): a CPU regiszterei, flagjei nem változnak, de 
,, végrehajtása" ugyanannyi időt igényel, mint pl. a LD r, r" utasításé. 
Időzítési feladatoknál vagy programjavításnál használjuk. 


Utasítások Kódja 

Tízes Hexa C zZ PS. NH 
DAA 39 27 Pp a 
CPL 47 2F a IE tal 
NEG 237 68 ED 44 v 1 
CCF 63 3F a e Üg 8 
SCF 55 37 1 0 0 
NOP 0 00 299 9 


Végül hat LD utasítást közlünk, amelyek jelölésmódjuk miatt nem 
szerepeltek a megfelelő fejezetben. Azóta megismerkedtünk ezekkel 
a jelölésekkel, reméljük, hogy most már önmagukért beszélnek. 


Utasítások Kódja 

Tízes Hexa 
LD (IX--d), r 221 112-4-rd DD 70--r d 
LD (IX--d), n 221 54dn DD 36dn 
LD (IY1-d), r 253 112t-rd FD 70trd 
LD (IY1-d), n 253 54dn FD 36dn 
LD r, (IX--d) 221 79--8-rd DD 467-8-rd 
LD r, (IY1-d) 253 70--8-rrd FD 46--8-rd 


Ezek az utasítások sem állítják a flageket. 
SZÉKELY JENŐ 


— Az Ötletben 


. tová bbra IS . 


a 


j 
MI y 
Eta 


KINTI] 
jil 1111 
HEH 


E) Cat, sztk ta ETT Zé, MEOE ZOTT UTLAGYD EI ToZDŐ ELETE zzg zar srezeb eszmet ae 


MI 


HINTI 


ER] salt 


BASIC 


"ri y 


Rovatszerkesztő: HEGYI ISTVÁN 


Ismét néhány szó 
az adatállományról 


A feldolgozó programból az anyagadat- 
beírást mutatjuk be, a többi művelet 
(anyagkiádás-, bevétel-, készletjelentés-ké- 
szítés) ennek ismeretében már könnyen el- 
végezhető. 


Ebben a műveletben az anyagok adatait 
írjuk be az állományba (azonosító, név, 


RETIXEkAEkkkkkkkkkikikk 
! REHhk k 
REMk  FELDOLGOZAS a 
REj4k xk 
REJAKKKXKKKXKKEKKKkkk kak 
RErdkkkkk MENÜ kikkk 
SET TŐ ez da 
CFEN2Z 8.2, "ANYAG " 
POKE 53298,12 
FOKE 532£81.,6E 
PUKE 646.,1 


FR IINT " a JARRE ET TB NYAGFELDOLGOZASI MENUN" 


PRINT: PRINT: PRINT 
PRINT TAB(5); "gi 
PRINT TAB(50:"g2 
PRINT TAB(5):"4g3 
PRINT TAB(5):"4 4. 
" PRINT TAB(5):"45 
PRIN 


PRINT: PRINT: 
FPOÜKE 65654£E,34 


INPUT" —" MELYIKET VALASZT 
FOKE 646Ee,i1 

IF "-i THEN GOSUÚB 399 

I7 M-2 THEN GüSUÜB 1208 
IF M-3 THEN GOSUE 1893 
IF "-4 THEN GOSUÚB 3439 
IF M-5 THEN GOSUB 3599 
GO TE 1988 


RERH4kkááik ANYAG-ADAT BEIRAS Xkkikk 


REMk URES REKÜRD KERESE x 
U-O 

FÜR I-i TO 50 
B1Íí-INTÁI-/2563 

E0-I-Bix255 

PRINTHI5S, 


ANYAG-ADAT BEIRAS" 
AINTAG BEVETELEZES":PRINT 
ANTAG KIADAS" :PRINT 
KESZLET-JELENTES": PRINT 
BEFEJEZES " 


"PP" 1CHRE(CZ I ICHRECBÜJ 1CHRE(B1DICHR$(1) 


mennyiségi egység, mennyiség). Egy ilyen 
művelet előtt ellenőrizni kell, hogy van-e 
még üres rekord (üres-tele jelző ——CHR$ 
(255)). Ha nincs, akkor ezt ki kell írni és 
a művelet befejeződött. 


Ellenkező esetben az első üres rekordra 
kell állni és be kell olvasni az anyag adatait. 


INPUTH2 ,J$ 
GO TO 449 
U-I 
1-58 
REM 
5 NEXT I 


GO TŰ 590 


:PRINT GO TO 1150 


5 PRINT" 
GO TO 580 
PRINT 


G6:TÜ- zsé 


GO TO 740 


PRINT U:STOP 
REMx THEN AG 4 


IF VEG 4£ 


REHx THEN AG a 
PRINT " UBB SR NINCS URES HELY AZ 


REMkxk IF VEG xx 
PRINT VAL(Z$2; 
REMkx ADORTBEOLYVAÁSAS £ 


ALLNI ! 


INPUT "AZ ANYAG NEVE 
IF LEN(AN$I-15 THEN 7509 
IF LEN(AN$2X15 THEN 680 


MESZ ZENG EGET EGEK ESETE ET SAE SKES SÉT RE EDE STT T SZT PT TT JATE RT AE ETI Ete 


Ezeket a kívánt hosszra kell beállítani, és 
ezután az írás végbemehet. Mielőtt a prog- 
ramrészlet listáját tanulmányozni kezde- 
nénk, néhány dologra felhívjuk a figyelmet: 


- Az üres rekord keresést (310-445) 
FOR NEXT típusú ciklussal végzi el a 
program. Találat esetén az üres rekord 
sorszáma az U változóba kerül. Az I ér- 
tékét a végértékre állítjuk, hogy a ciklus 
befejeződjék. 


— Az anyag azonosítóját a program csak 
akkor fogadja el, ha 6 karakterből (bájt- 
ból) áll (560-610). 


—- Az anyagnév 15 karakter hosszúságú 
a rekordban, de természetesen kevesebb is 
elfogadható. Ilyenkor az anyagnevet jobb- 
ról szóköz karakterekkel kell kiegészíteni, 
hogy a hossz 15 legyen (640—-740). A szó- 
köz megadható " " formában vagy a gépi 
kódjával (32). Ugyanezt a műveletet kell 
elvégezni a mennyiségi egységnél is. 


- A mennyiséget két tizedes pontosság- 
gal kell tárolni. Ezértelőször úgy kell átala- 
kítani, hogy kettőnél több tizedes jegyet 
ne tartalmazzon (910-930). Ezt követően 
kell szöveges változóvá átalakítani az 
STR$ függvény segítségével. Az STR$ 
függvény a szöveges változót úgy építi fel, 
hogy a bal oldalon lesz egy nem kívánatos 
szóköz. Ezt a RIGHTS$ függvénnyel tudjuk 
levágni. A mennyiség adatot is méretre 
ellenőrizni kell (950—1050). 


— Az állományra íráskor pozicionálunk 
az üres rekordra az U értéke alapján 
(1070—-1090), az üres-tele jelzőt 0-ra állítja 
és a rekord felírást végrehajtjuk (1110- 
1120). Ezzel az adatfelírási szubrutin be- 
fejeződött. 


A program listája : 


IF J$-CHRK$(e552 THEN 410 


IF U-A THEN 470 


ALLOMANYBAN ! Mi 


PRINT" a AMETeBE EBB BE BET Z ANYAG ADATA II" 
PRINT: PRINT: PRINT 
INFUT"AZ ANYAG AZUÚNOSIÍTUJB 
IF LEN(RA33.-E THEN E£38 
PRINT"AZ ANYAG AZONOSITONAK 6 JEGYBOL KELL" 


": RAP 


IRJA BE HELYESEN!" 


" : AINF 


REMk THEN AG xk 
. AINS-ANFTUHRÉÉ SE) 
IF LEN(AN$PICIS THEN 


REhx ELSE AG x 
AN$-ZLEFTSH(ANF, 152 
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1919 GO TO 18509 
1929 REMx ELSE AG x 
1938 PRINT"EZ TUL NAGY SZAM! A MENNYISEG MAXIMA: " 
1935 PRINT" LIS ERTEKE 3399.399, IRJA BE UJRA!" 
1949 GO TO 988 
1959 REMk IF VEG ax ; 
1968 REMxk POZICIONALAS ax 
1979 B1-INT(U/2565) 
19809 B9-U-B1ié56 
1998 PRINTH1I5S,"P"$CHR$(2) ICHR$(BO)1CHRS$(B1)tCHRSC(1) 
1119 J$-"g" 
1128 PRINTH2,J$;ZCHR$C13) ARE: CHRS$( 1327 ANS; 
. CHR$(13);MESZCHREC( 13): M$:CHR$C13) 
1159 RETURN 
35080 REMkkikkki BEFEJEZES 
3519 CLOSE2 
3529 CLOSEI5 
3539 END 
READY . 


2 ME$-MESTCHRE(32) 
820 IF LEN(ME$:-2 THEN 819 
838 GO TO 869 
840 REMx ELSE AG ak 
350 ME$-ZLEFT$((ME$k, 2) 
8690 REMkxk IF VEG x 
879 PRINT 
9800 INPUT"A JELENLEGI MENNYISEG ";M 
9198 M:-199x4M 
g2e9 Mz5INT(M 
339 M-M/199g 
340 M$-STREC(M) 
345 MSZRIGHT$(M$,.LEN(M$)-1) 
359 IF LEN(M$)-7 THEN 1968 
360 IF LEN(M$)(7 THEN 3989 
970 G0 TO 1929 
9890 REMk THEN AG a 
9398 M$-CHREC(C48B ) tö 
19998 IF LEN(Pt$)C7 THEN 9908 


kikkkxi 


Változások a korábban megalakult mikrokluboknál 


A klub neve Üzemeltető A klub vezetője Telefon Látogatási időpont Gépek 


PC klub 152-296 TAP 34 
M0O8X 


SZM4, A 6401 


2" HT 2080 Z 
2" PRIMO 


Nagy József 
Köőmíves Gábor 


Építésgazdasági és Szervezési 
Intézet 
Bp. Csalogány u. 9. 1251 


MN REVA Intézet Bp. Pf. 25. 1885 Kertész Aranka 322-550/ 

Csak HM-dolgozók és család- Bohner Márta 5718 mell. 

tagok részére Megyeri György 5863 mell. 
6108 mell. 


260-000 


Keddtől csütörtökig 
15.00—17.00 


kedd: 16.00-19.00 
péntek : 16.00-19.00 


SZKI klub SZKI Budapest I., Donáti u. 35—45. 
Az I. kerületi diákok és az intézet 
gyermekei előnyt élveznek 

Községi KISZ-bizottság, Bugyi 
Felszabadulás tér 1. 2347 


Donát János MO8X 
PROPER 8 


PROPER 16 


TPA 1140 

op. rendszer : 
RSX-11-M V. 2. 
128 kbyte memória 
2" Commodore 

1" TEXAS 


Szerda : 14.00—-17.00 
Előzetes bejelentés 
szükséges. 


Gere Zoltán 


hétfő: 16.00—18.00 
kedd: 16.00-18.00 


A klub fél évig szünetel 


Somogy megyei Állami Építőipari 

Vállalat Kaposvár, Béke u. 28. 

INTER GM Ügynötki Iroda, 

Kaposvár Rákóczi tér 1. 

NJSZT Borsod-Abaúj-Zemplén 
megyei Szervezete, 

ÉMÁSZ Székház, Miskolc 

Telefongyár Zempléni Gyáregysége 

Sátoraljaújhely, Dózsa Gy. u. 28. 


Pekker Mihály 
Tran Van Hong 


Kálmán József 82/11 176 


13 150/17 


INTER GM 
mikroklub 


Primo klub Bene István 16-931/1455 hétfő 
szerda 


csütörtök 


hétfő 
vasak 15.30-19.30 
szombat: 8.00—12.00 


lk ki 17.00-20.00 


Szerda 17.00-19.00 
szombat 10.00—12.00 


3" Primo 

15.00—18.00 
Terta Zempléni Gombos Pál 
mikroklub 


12-13 1" TAP 34 


31-PRIMO 
VPCC Lakótömbi Klub, 

Székesfehérvár, Benke Ferenc u. 27. 
Alagsor 18. 


127-30/278 PRIMO VC 20 


TV Computer 


Oszlányi 
S. Iván 


Beérkezési határidő : a megjelenést követő 30. nap. ; 
Levélcím: Budapesti Hírlapterjesztő Üzem : 


5 PÁLYÁZATI Feltételei : 
; közgazdasági egyetemi vagy kereskedelmi főiskolai 4 
4 n/ A végzettség, 45 éves, vagy annál fiatalabb életkor, É 
; FELH ÍIVAS legalább 3 éves vezetői gyakorlat, büntetlen előélet, ji 
erkölcsi, politikai feddhetetlenség. A pályázathoz —/ 
I kérjük az önéletrajzot mellékelni. ú 
ő A Budapesti Hírlapterjesztő Üzem pályázatot hirdet ; 


kereskedelmi osztályvezetői munkakör betöltésére, 


aki szervezi és irányítja Budapest területén a hírlap- 
terjesztés piackutatói, valamint üzemi és iskolai lap- 
terjesztés szervezési feladatait. 
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1360 Budapest. Pf. 1. 


Érdeklődni: Papp Istvánnál, 631-055 telefonon, 
vagy személyesen: XIV. ker. Amerikai út 25. 


zt erem ta 


hAző Ötl etben 
" továk bbra is . 


Számítástechnika 


b egazitát 


as e ay 11] ff 


BASIC) 


14 w 


Rovatszerkesztő: HEGYI ISTVÁN 


SET ZET AE STT TOT TATA TIT É NET SÉRE TET NEZETET] EETVEZTÁTTSIT TT E TT 
dott yó E ekes NE B áz IZ SÉLÉN Tá An eve LŐ sé vat B 4 
KV ÉT ÜL ZA 2L At VEREL EZ LOSZST Út 1ú6 zet éto LL AK 


Vizsgára készülőknek 


A TV Basic vizsga közeledtével érthetően meg- 
szaporodtak azok a levelek, telefonok, ame- 
lyekben olvasóink, nézőink részletesebb tájé- 
koztatást kérnek a vizsga követelményéről, 
jellegéről, lebonyolításáról. 

Ezeknek a kéréseknek teszünk eleget, mikor 
közreadjuk a vizsgák szervezőinek, a Neumann 
János Számítógéptudományi Társaságnak és a 
SZÁMALK oktatási irodájának a tájékozta- 
tóját. 

A vizsga 75 db tesztkérdésből áll. Minden 
kérdésre a több lehetséges válasz közül csak 
egyetlen helyes. 

Minden helyes válasz egy pontot ér. 

A vizsga időpontja: 1985. május 27., délután 
2 óra. 

A vizsga helyéről mindenki --- aki előzetesen 
írásban jelentkezett -— személyre szóló értesí- 
. tést kap. A vizsga időtartama: 3 óra. 

Vizsga lesz minden megyeszékhelyen és Bu- 
dapesten több helyen is. Amennyiben egy-egy 
városban, településen sokan jelentkeztek (kb. 
50 fő), ott helyi vizsgáztatásra is sor kerül. 

Korlátozott számban a vizsgák helyszínén 
is lehet vizsgára jelentkezni. A vizsgabizott- 
ságok felhatalmazást kaptak, hogy a terem 
befogadóképességétől függően engedélyezzék 
a helyszínen jelentkezők részvételét is. Ilyen- 
kor a vizsgadíjat is ott kell befizetni. 

A vizsgák helyszíneinek listáját a Rádió- és 
Televízió Újság is közölni fogja. 

A vizsga nincs korhatárhoz kötve. Mindenki 
vigye magával: 


e a személyi igazolványát (vagy az ezzel nem 
rendelkezők egyéb, a személyüket igazoló ok- 
mányt), 

e a vizsgára jelentkezés visszaigazolását, 

e a vizsgadíj befizetését igazoló csekket, 

e íróeszközt. 

A vizsgán csak a kiosztott tesztlapot és az 
íróeszközt szabad használni, egyéb segédesz- 
közt nem. 

A feladatok főleg az algoritmikus gondol- 
kodást teszik próbára, a matematikus és lexi- 


kális ismereteket igénylő kérdések aránya el- 
enyésző. 

Az eredményesen vizsgázók névsorát a Neu- 
mann Társaság helyi szervezetei június 15-ig 
közzéteszik. A sikeres vizsgáról szóló oklevelet 
postán fogjuk elküldeni. 


Nyilván mindenkit érdekel, milyenek lesz- 
nek a vizsgakérdések. 


Az ELTE TTK Számítástechnikai Tanszéké- 
nek, a SZÁMALK oktatási irodájának és a 
NJSZT-nek a munkatársai összeállítottak 250 
db tesztkérdést. A kérdésekből többszöri el- 
lenőrzés után választottuk ki a tesztlapokon 
szereplő 75-öt. A kimaradt kérdésekből köz- 
lünk néhányat, amelyek jellegükben hasonlií- 
tanak a vizsgakérdésekhez. Tanulmányozásuk 
hasznos lesz a felkészüléshez. 


1. Mennyi lesz S értéke az alábbi utasítás 
végrehajtása után? 
105— ABS (INT(-4.9)) 


1.4 
8-.§ 
B. 
4. -á 


2. Mennyi lesz S értéke az alábbi program 

lefutása után? 

10 5—1 

20 FOR 1-1 TO 6 

30 5-—S"I 

40 NEXT I 

1. 6 

2. Az első 6 egész szám szorzata 
(6! — 720) 

3: 436 

4. 1-től 6-ig a páros számok szorzata 


3. Mit ír ki a program a végrehajtásakor? 
10 READ A 
20 READ B 
30 READ C 
40 PRINT A B C 
50 DATA 12, 53 


F.. 12 53 0 
2. AZ 53 12 
3. hibaüzenet 

2. 2 53 hibaüzenet 


5 PRINT , MACSKA" 
10 PRINT , ES KUTYA" 
Az alábbi sorok közül melyik jelenik meg ? 
Il. MACSKA 
ES KUTYA 
2. MACSKAES KUTYA 
3. MACSKA ES KUTYA 


. Az alábbi két program P értékét számítja 


ki. Hogyan viszonyul a két érték egymás- 
hoz ? 

5 A—8 

19. f:10 

20 IF Az —-8 THEN 40 
30 GOTO 50 

49"P:0O 

50 1-O 

60 1—1-7-1 

70 IF 1 10 THEN 100 

80 P-—P 1-2 

90 GOTO 60 
100 STOP 

5 A—8 

10 P-— 10 

20 IF A- —8 THEN P-O 
30 FOR 1-1 TO 10 

49 P—P--2 

50 NEXT I! 

60 STOP 

1. Megegyezik. 

2. Az első program által kiszámított ér- 
ték kisebb, mint a második által ki- 
számított. 

3. A második által kiszámított érték ki- 
sebb, mint az első által kiszámított. 


. Mit csinál a következő programrészlet ? 


10 INPUT B 

20 FOR I1—2 TO 10 

30 INPUT A 

40 IF BB A THEN B—- A 

50. NEXT I 

1. B tartalma az először (10-es utasítás- 
ban) beolvasott érték lesz. 

2. A B-ben az összes beolvasott adat kö- 
zül a legkisebb lesz. 

3. A B-ben az összes beolvasott adat kö- 
zül a legnagyobb lesz. 


. Az alábbi programrészlet feladata : 


amennyiben A negatív szám, akkor írja 
ki, hogy , NEGATÍV" és a futás álljon le. 
Melyik a jó megoldás ? 
1. 5 IF A-z0O THEN 

60 PRINT , NEGATÍV" 
2. 50 IF AzZO THEN PRINT 

, NEGATÍV"; STOP 
3. 50 IF AzZO THEN PRINT 

, NEGATÍV"; STOP 


. Hányszor hajtódik végre az alábbi ciklus ? 


50 FOR 1-1 TO 9 STEP -I 
60 PRINT 1—1 

70 NEXT I 

Szintaktikailag hibás 

. Egyszer sem 

. Egyszer 

. Kilencszer 

. Mindegyik állítás hamis 
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u RW 


9. Hány eleme van a következő tömbnek ? 


DIM T (5,5) szavakban - 
I. 25 meretanyag: 
2. 30 

3. 36 - aritmetikai 


5 És ; -. szövegtípusú 
10. Mi a szerepe a TAB(A) függvénynek ? SEBI 


1. Függvénydefiniálás egyik formája 


ű . ] Kifejezések 
2. A szöveget az A-adik soron kezdi éb 


j - aritmetikai 
sú pedjetégteát ; i - logikai összehasonlítás 
3. A szöveget az A-adik oszlopban kezdi "szövegtípusú 
gpásékiegákás Utasítások 
II. Az END utasítás -. értékadó 
1. kötelező minden BASIC program utol- - ciklus 
só sorában. - feltételes 
2. nem kötelező, de csak a program utol- - vezérlésátadó 
só sorában állhat. - író-olvasó 


3. bárhol szerepelhet a programban. 


A tanultak rendszerezéséhez 
a sikeres vizsgához szükséges is- 


Adattípusok (konstansok, változók) 


Elemi adatok, tömbök 


- READ-DATA utasítás 


A POKE utasítás, PEEK függvény 
Szubrutinok 
Beépített függvények 


. csupán cím- 


- aritmetikai 
-. szövegkezelő (MID$ stb.) 
Véletlenszám generálás 
Algoritmuskészítés 
Program, tesztelés, hibakeresés 
Program betöltése, kimentése, futtatása (pa- 
rancsok) 
Képernyőkezelés 
Számítástechnikai alapfogalmak (bit, byte, re- 
kord, fájl) 
A vizsga után a vizsgakérdések helyes meg- 
oldását is folyamatosan közöljük. 


KŐHEGYI JÁNOS 
és DANIS MIKLÓS 


GÉPI KÓDU j 
PROGRAMOZÁS 


SZAKKÖRÖKNEK! 


A HT-IO80Z félképernyős megjelenítési lehetősége sugallja, hogy a 
képernyő jobb és bal oldalát esetenként önálló információs területként 
kezeljük. Az ilyen képernyőszervezésű programoknál gondot jelenthet, 
hogy a CLS utasítás hatására az egész képernyőfelület letörlődik: 

A kívánt szelektív törlés BASIC utasításokkal - még a STRING $- 
ral is - szembántóan lassú. Az igazi megoldást egy gépi kódú szubrutin 
felhasználása jelentheti, amelyet célszerűen helyezhetünk el a mágnes- 
lemez-kulcsszavakhoz tartozó memóriaterületen : 


Cím: Gépi: Assembly: Megjegyzés 

4152 21003C LD HL, 3COOH Jobb old. törlése 
4155 C35B41 JP 415 BH 

4158 21E03B Bal old. törlése 


LD HL, 38BEOH 


415B 112000 LD DE. 0020H 
415E 0ELO LD C€C. IOH 
4160 19 ADD, HL, DE 
4161 0620 LD, B, 20H 
4163 3680 LD (HL), 80H 
4165 23 INC HL 

4166 I0FB DJNZ-5S 

4168 0D DEC C 

4169 C26041 JP NZ. 4160H 
416C  C9 RET 


A fenti szubrutin betöltését és működtetését egyszerűen megoldhat- 
juk úgy, hogy a félképernyő-törlést igénylő BASIC programjaink ele- 
jén elhelyezzük az alábbi programrészletet : 

10 IF PEEK(16722) — THEN 60 
20 FOR I — 16722 TO 16748:READ A :POKE I, A:NEXT:RUN 
30 POKE 16526, 82:POKE 16527.,65:W — USR (0):RETURN:REM 

JOBB 
40 POKE 16526. 88:POKE 16527.65:W — 

BAL 
50 DATA 33.,0, 60, 195, 91, 65, 33, 224, 59, 17. 32. 0, 14, 16, 25, 6, 32. 

54, 128, 35, 16, 251, 13, 194, 96, 65, 201 
60 REM TETSZŐLEGES UTASÍTÁSOKKAL FÖLÜLÍRHATÓ 

SOR 

Ezt követően a programban bárhol elhelyezett GOSUB 30 hatására 
a jobb, a GOSUB 40 utasítást követően pedig a bal képernyőfél törlő- 
dik le pillanatszerűen. 


USR (0):RETURN:REM 


PÁL LÁSZLÓ 


PDP 11, TPA 11, 
JANUS CM-4 (SZM4) 


felhasználók figyelmébe ajánljuk az 
alábbi magyar nyelvű (teljes ékeze- 
tes ABC) szövegszerkesztő, leve- 
lező és könyvíró programcsomagot. 


A program lehetőséget nyújt a 
teljes magyar nyelvű kis- és nagy- 
betűs karakterkészlet, valamint spe- 
ciális jelek megjelenítésére. Tetszés 
szerinti szövegek oldalankénti el- 
helyezésére, tördelésére alkalmas, 
automatikus elválasztásnál figye- 
lembe veszi a magyar helyesírás 
szabályait. Automatikusan lehet fe- 
jezeteket és alfejezeteket hierar- 
chikus bontásban elhelyezni, külön - 
böző módon. Tetszés szerinti tí- 
pusú oldalszámozás-készítési lehe- 
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tőség is rendelkezésre áll. Szükség 
szerint készíthető tartalomjegyzék 
és szó- (szöveg) indextáblázat. Al- 
kalmas levelezések végzésére, táro- 
lására, tetszés szerinti változtatásá- 
ra, levelek egymásba ágyazására: 
átstrukturálására. Lehetőséget ad 
könyvek írására, nyomdai előkészí- 
tési munkák végzésére. A program - 
csomag üzemeltetése egyszerű, a 
számítógép részletesebb ismerete 
nélkül is végezhető. 


Működési környezete: DZM 
vagy , LOGABAX  sornyomtató, 
RSX vagy RSTS (E vagy DOS-RV 
operációs rendszer bármelyik vál- 
tozata). 


Megrendelhető : 


Alkotó Ifjúság 
Egyesülés 
Számítástechnikai 
Iroda 


Budapest V., 
Garibaldi u. 2. 
Levélcím: 
Budapest, 1519 
Pf. 330. 

Telefon: 112-666 
113-608 


Telex: 22-7272 


a lén AL AEMNOTEEZ dt máltai étel ETL AS tea -doáte aal Anett seen va állva! emet , etmástvt . 


Ha he 


Rovatszerkesztő: 


ITK. 


..... 


1 gű sag 


HEGYI ISTVÁN 


Nem vizsgára 
készuülöknek! 


A BASIC-nyelvvel foglalkozók bizonyára sok 
hasznos útmutatót találtak a tv-sorozat utolsó 
adásában elhangzottak között, de maradt né- 
hány olyan tanács, amelyről korábban kevés 
szó esett és ezért érdemes lenne pontosabban 
megismerni. 

Ezzel a rövid cikkel arra vállalkozunk. hogy 
a leglényegesebbeket írásban is közreadjuk. 
Reméljük, ezzel az alaposabb megértést is elő- 
segítjük. 

Sok szó esett a GO TO nélküli programo- 
zásról. 

A GO TO nélküli programírás az ún. struk- 
turált programozás egyik alapelve és lényegé- 
ben azt sugallja, hogy a programozók csak a 
3 alapalgoritmust (lásd. a könyvben 62-66. 
oldalakon) használják a programban építő- 
kövekként és ne olyán programokat írjanak, 
amelyekben a műveletek végrehajtása össze- 
vissza ugrál hol előre, hol hátra, amit az alkal- 
mazott GO TO-k idéznek elő. Az ilyen prog- 
ram általában áttekinthetetlen, nehezen javít- 
ható és még nehezebben módosítható (ha egy- 
általán sikerült működőképessé tenni). 

Világosan kell azonban látni -— mint azt az 
előadók maguk is megjegyezték -, hogy a 
BASIC nyelvben a GO TO alkalmazása el- 
kerülhetetlen. A GO TO szervezett használata 
ezért nem tilos, sőt természetes. A könyvben 
ajánlott kódolási javaslatok az IF THEN, 
az IF THEN ELSE, a CASE és a ciklikus 
szerkezetek megvalósítására bőven tartalmaz- 
nak GO TO utasításokat is. Ezekben a szerke- 
zetekben a GO TO alkalmazása következetes, 
ezért megtanulható és áttekinthető. Megjegy- 
zések (REM utasításokban) is segítik a tájé- 
kozódást. 3 

A BASIC-nyelvben kevés olyan utasítás 
van, amely a GO TO elhagyását lehetővé teszi. 
Az egyik ilyen utasítás a FOR, NEXT utasí- 
táspáros, amely hátultesztelő szerkezetet való- 
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sít meg GO TO nélkül. Ha enélkül az utasítás- 
páros nélkül kódolunk hátultesztelő ciklust, 
akkor a GO TO használatát nem tudjuk el- 
kerülni. 

Ha IF THEN ELSE szerkezetet kódolunk 
IF THEN utasítással, akkor legalább két 
GO TO utasítás szükséges a normális műkö- 
déshez. 


100 IF A5-B THEN 129 
1lií9 G0 TO 168 

129 REMk THEN AG x 
138 f-őti 

139 Ca-H§tkK 

159 Gü TŰ 1989 

169 REMXx ELSE AG x 
170 CD-H 

íSs0 REMk IF VEG 4 


Ha viszont IF THEN ELSE utasítást alkal- 
mazunk (ahol ilyen van), ott eggyel kevesebb 
GO TO-t kell írni. 


1c0 IF A--B THEN igeü ELSE 
G0 TŰ 160 


iz REMk THEN AG x 
139 Az-Ati 

149 COa-AtK 

159 G0 TŰ 1898 

169 REM ELSE AG xx 
172 €£0a-6 

iS50ú REMx IF VEG X 


Mivel nem kódolható minden algoritmus 
ilyen többé-kevésbé előregyártott utasítások- 
kal, ezért sok helyen kell GO TO-t alkalmazni. 


Elhangzott az a jó tanács is. hogy igyekez 
zünk a BASIC lehetőségeit jól kihasználva, 
minél rövidebben kódolni egy műveletet. Egy 
másik előadó viszont azt tanácsolta, hogy a 
programot írjuk szellősen, jól áttekinthetően. 
Ez a két állítás látszólag ellentmond egymás- 
nak, a valóságban azonban jól megférnek 
egymás mellett. A tömörítésre való felszólítást 
tartalmilag kell érteni és nem formailag. Első- 
sorban azt értsük ebből a javaslatból, hogy is- 
merjük meg jól a nyelv minden lehetőségét és 
ezeket használjuk is ki. 

Ha például jó rajzolási képességekkel ren- 
delkezik a nyelv, akkor ezt használjuk az író- 
gépszerű rajzolás helyett. 

Mindemellett legyen a program áttekinthető. 
A túlzott tömörséget kerüljük, mert a prog- 
ram utólag megfejthetetlenné válik. Jó példa 
erre az. hogy az IF utasítás THEN ágába 
lehetőleg ne írjunk utasításokat, ehelyett kö- 
vessük a könyv , szószátyár" kódolási formá- 
ját. Itt említjük meg azt is, hogy az utasításo- 
kat értelmes formában írjuk le, azaz az utasítás 
részei közé írjunk be szóközöket. Próbáljuk 
meg kisilabizálni az alábbi programrészletet ! 
Valószínű, az mindenkit meggyőz az elmondot- [. 
tak igazáról. 


208 REMXACIKLUS:4kik 

219 K-S:FÜRI-KTÜLIA : zötk: 
FRINTTABÁK 25 Az: NESTI:PRINT 
229 IFAX-BETHENL-PitT: 
PRIINTL:GOTOZ4O 

cs GOTOZ5SO 

e48 INFUT"KOÖOVETKEZÜ 


ERTEK "7; EK 
READY. 


Nyugodtan írjunk be a programba minél 
több megjegyzést is REM utasítással. Ez szin- 
tén növeli a program méretét, de érthetőbbé 
teszi a programot. 

A személyi számítógép-programozók között 
elterjedtek olyan nézetek, hogy a program 
futása bizonyos kódolási formák alkalmazásá- 
val gyorsítható. Ilyen például az az elv, hogy 
a DATA utasításokat és a szubrutinokat a 
program elején kell elhelyezni. Nem vitatko- 
zunk ezekkel az állításokkal, bizonyára helyt- 
állóak. De higgyük el, hogy egy 30-50 soros 
program futási ideje ettől nem lesz érezhetően 
rövidebb, azt viszont elérjük vele, hogy a prog- 
ram szerkezete kuszább lesz. 


Csak felsorolásszerűen néhány további rö- 
vid intelem. Sorolhatnánk még tovább is a 
jobbnál jobb tanácsokat, de a helyszűke csak 
néhány rövid intelmet enged meg: 


- A változó kezdő értékét állítsuk be. 

- Az IF utasításban szereplő feltételt helye- 
sen fogalmazzuk meg. 

- A ciklus ismétlési számát jól állapítsuk 
meg (főleg, ha IF utasítással vizsgáljuk a fel- 
tételt). 


- Az adatokkal való műveletvégzésnél ve- 
gyük figyelembe az adat teljes értéktartomá- 
nyát (negatív szám is lehet). 

Reméljük, hogy összefoglalónk a vizsgára 
készülésben is segít és a későbbiekben is 


hasznos lesz. 3 
DR. KOCSIS ANDRÁS 


ámítástechnika —— — — 


Az Ötletben 
tová bbra is . 


mia 


salt 


j 


! 


Rovatszerkesztő: HEGYI ISTVÁN 


HR EN ET TEZ ESEN 


Mi van a Basic mogott? 


Program és adat a tárban 


Amiről most olvasnak, az az egyszerű BASIC 
programíráshoz nem feltétlenül szükséges 
Valahogy úgy, ahogy az autó vezetésének 
megtanulásához sem nélkülözhetetlen a motor 
működési elméletének, technológiai részletei- 
nek ismerete. De azért nem is fölösleges az 
ilyen tudás és bonyolultabb helyzetekben nagy 
hasznot hajthat ez a kissé , mélyebb" ismeret. 

s maradva az autóvezetés hasonlatánál: az 
autóvezetési ismeretek legnagyobb részét meg 
lehexz tanulni valamely adott autótípus saját- 
ságos tulajdonságainak ismerete nélkül is. 
De az autó motorja gyártónként, típusonként 
alaposan eltérő lehet, így a rá vonatkozó is- 
meretek is speciálisak. 


Hasonló a helyzet a számítógépekkel. Ha a 
BASIC mögé kívánunk tekinteni, azaz tudni 
valamit arról mit is csinál a gép a begépelt 
programsorainkkal, akkor ezt már csak egy- 
egy géptípusra vonatkozólag lehet elmagyaráz- 
ni, ami különböző gépek esetében ténylegesen 
eltérő lehet és szokott is lenni. Miután a TV 
BASIC során tárgyalt valamennyi gépre egy- 
aránt érvényes, valamiféle párhuzamos tár- 
gyalásmód, ebben a témakörben reménytelen 
vállalkozás lenne ki kell kötnünk egy géptípus 
mellett. A következőkben leírtak nagyobb 
része csakis a HT-1080 számítógépre vonat- 
kozik. 


De még egy gépre vonatkoztatva is oly sok 
mindenről lehetne írni - ami a BASIC prog- 
ramozást lehetővé teszi, de amit egy tanuló 
programozó nem érzékel - hogy ezzel egy 
könyvet lehetne megtölteni. Ezért a témából 
kiemeltünk egy kisebb, de meglehetősen 
lényeges részletet: hová kerül a begépelt prog- 
ram, milyen formában tárolódik, a gépben. 


A géptípusokhoz tartozó ún. gépkönyvek 
többnyire közlik az ún. tárfelosztást, azaz egy 
felsorolást arról, hogy a tár bizonyos területei 
milyen célra vannak fenntartva, lekötve. Ezek- 
ből szinte kivétel nélkül az derül ki hogy a 
tárnak két fő, fizikai tulajdonságában is eltérő 
része van: 


e Egy kizárólag olvasásra szolgáló tárterület, 
melybe a gyártó cég kitörölhetetlen módon 


gépi kódos programokat írt be. Ezek teszik 
lehetővé a BASIC tanfolyamon is megismert 
parancsok, utasítások közvetlen használatát, 
pl. azt hogy a CLS kulcsszó begépelése és a 
New line billentyű lenyomása után a képernyő 
letörlődik, stb. A tér ezen részét szoktuk 
ROM-nak nevezni (a Read Only Memory 
kezdőbetűiből, ami , csak olvasható memóriát" 
jelent). 


e A tár másik, általában lényegesen nagyobb 
része beírható és olvasható ill. a benne lévő 
információ törölhető. Ezt az egyes rekeszek 
tetszőlegeselérhetősége miatt RAM-nak mond- 
juk (ami a Randoin Access Memory kezdő- 
betűiből készült szó és jelentése véletlensze- 
rűen elérhető tár). 


Ez utóbbi tárterület azonban a felhasználás 
szempontjából nem egységes, ugyancsak két 
fő részre osztható: 


60 A RAM egy területét a gép a saját mű- 
ködéséhez kell hogy felhasználja, pl. állan- 
dóan tárolja a képernyőre írt adatok, alakza- 
tok paramétereit, és sok egyéb feladatra al- 
halmassá teszi a gépet. Ebbe a részbe mi is 
beavatkozhatunk, de az ilyen változtatások 
többnyire összetett következményekkel jár- 
nak, melyeket, ha nem gondoltunk jól végig 
a gép nem úgy fog működni, ahogy elvárnánk. 


60 A RAM egy másik része a felhasználó 
részére, ill .programjának, adatainak tárolá- 
sára szolgál. Természetesen kívánatos, hogy 
ez a terület legyen a legnagyobb a tárban. 
A kisebb, olcsóbb gépek nem mindig tesznek 
eleget ennek az óhajnak, ami ugyancsak kor- 
látozhatja a számítógép használhatóságát. 


Mint egy korábbi írásunkban említettük, 
a tár nyolc bites rekeszekből, pontosabban 
bájtokból áll és mindegvikhez tartozik egy 
cím, amely lehetővé teszi, hogy meg tudjuk 
nevezni beírás, ill. kiolvasás céljából. A bájt 
címe egy szám, amely azonban fizikailag nincs 
a rekesz mellé írva, hanem csak azt jelenti, 
hogy a processzoi úgy találja meg a megne- 
vezett bájtot, hogy mindig ugyanott kezdve és 
ugyanabban az előírt sorrendben végighalad 
a rekeszeken és a megadott címnél, ill. sor- 


számnál megáll. Egy tárat a mérete, kapa- 
citása jellemez, ami nem egyéb, mint a benne 
lévő rekeszek száma. 


Ez nem teljesen magától értetődő, mivel 
lehetne pl. a bitek száma is a tár mértéke. 
Gondoljuk meg, hogyha egy gépben a reke- 
szek hosszabbak egy bájtnál, pl. 16, vagy 32 
bitesek, akkor ugyanaz a tárméret sokkal 
több bitet jelent és — ha úgy vesszük - sokkal 
több információ tárolásának lehetőségét nyújt- 
ja. Köztudott, hogy a tárkapacitás egysége 
1024 bájt, azaz 1 kbyte, ahol 1924 — 219. 
Ebből az is nyilvánvaló, hogy a címek is bi- 
náris (kettes számrendszerbeli) számok, pon- 
tosabban, a processzor bináris számok meg- 
jelenítésével számlálja meg a bájtokat. 


A bináris számok használata azonban csak- 
is a számítógép részére célszerű, emberi fel- 
használásra rendkívül kényelmetlen, hossza- 
dalmas. Keresni kellett a bájtok tartalmának 
jelölésére egy olyan módszert, amely egyfelől 
sokkal rövidebb a kettes számrendszerbeli 
számoknál, másfelől egyszerűen átírható bi- 
náris számokká. Ilyen írásmód többféle is 
lehetséges: pl. a három bitet rövidítő ún. 
oktális számrendszerben való írásmód, a négy 
bitet rövidítő ún. hexadecimális írásmód, stb. 
(oktális — nyolcas alapú számrendszerbeli, 
hexadecimális — tizenhatos alapú számrend- 
szerbeli). Azért állapodtunk meg a hexadeci- 
mális (ill. a továbbiakban csak , hexa"") szám- 
felírás mellett, mert így egy bájt tartalmát 
pontosan két számjeggyel ki tudjuk fejezni. 
Amiként a tízes (decimális) számrendszerben 
tíz különféle számjegy szükséges, a tizenhatos 
számrendszerben a különböző számjegyek 
száma tizenhat kell hogy legyen. Ez csak úgy 
lehetséges, ha a meglévő tíz számjegyet (0-át 
is beleértve) még hattal kiegészítjük. Megálla- 
podás szerint ezeket növekvő sorrendben az 
A, B, C, D, E és F betűk jelentik. A bináris, 
egy számjegyű, hexa és decimális számok 
összehasonlító táblázata az alábbi: 


A fél bájt tartalma hexa megfelelője deci- 
mális értéke : 


0990 OH [4 
9991 IH 1 
0918 2H 2 
9911 3H 3 
9199 4H 4 
9191 5H 5 
6110 6H 6 
9111 TH §7/ 
1999 8H 8 
1991 9H 9 
1919 AH 19 
1011 BH 11 
1190 CH 12 
1191 DH 13 
1110 EH 14 
1111 FH 15 


Táblázatunkban a hexaszámok után egy 
H betű ielzi a számrendszert. Ez egy szám- 
jegyű hexaszámok esetében talán fölösleges- 
nek tűnhet, de már kétjegyűek esetében nem 
az, mert pl. 29H decimálisan 41. A decimális 
16 hexában is kétjegyű: IOH. 


Mindezek alapján, ha egy bájt tartalma pl. 
ID119119, akkor a jobb oldali felét a hexa 
BH, bal oldali felét a hexa 6H jelöli, amit így 
is írhatunk: B6H és amit tréfásan , bézen- 
hat"-nak is mondhatnánk, a , tizenhat" min- 
tájára. 

A hexából decimálisba ill. a fordított irányba 
történő átalakításra gyakran van szükség, 
ezért erre néhány példát mutatunk: 


a) BB6H — 11:16--6, mert a B helyére a 
táblázat szerint 11-et írtunk, és ezt 16-tal, 
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számrendszer alapjának első hatványával 
szoroztuk. 


b) 29H 25:1673-9 — 41 az előzőhöz tel- 
jesen hasonló meggondolás alapján. 


c) FFH — 15316--15 255 ami azt je- 
löli, hogy egy báit tartalma kizárólag egyesek- 
ből áll. 

d) 190H 13162—0x16--Ó — 256, ami 
természetesen így is írható hogy IOOH 
— FFH--1IH. 

e) 4Ö0DH 
— 16384. 


f) Átalakítás decimálisból hexába: 12718 — 
— ?H. Ebben 163, azaz 4096 háromszor van 
meg, és marad 422. A 422-ben 162, azaz 256 
egyszer van meg és marad 166. Ez utóbbiban 
16 tízszer, ill. AH-szor van meg és marad 6. 
Az eredmény tehát 31 A6H 

Az elmondottakból érdemes még meg- 
jegyezni, hogy a kétjegyű hexa számok deci- 
mális értéke OSxs255 határok között lehet. 

A bájtok címeit is hexa számokkal szoktuk 
jelölni, miután azonban a HT-1080 címei 
mindig két bájtból állnak, ezért négyjegyű 
hexa számokkal írjuk. Ennek a gépnek a tár- 
felosztása tehát nagy vonalakban: 

e a ROM a OOPOH-tól a 2FFFH-ig bezárólag 
tart; 

"ea gép működtetéséhez szükséges RAM 
3000H és 3FFFH közt helyezkedik el; 

e a szabadon felhasználható tárterület ezek 
után 4000H-tól 7FFFH-ig terjed, ha 16Kbyte- 
os a gépünk) eddig csak ilyenek kerültek for- 
galomba). 

(Gyakorlásképpen érdemes utánaszámolni, 
hogy mennyi is 7FFFH-4900H). 


A BASIC-ben megírt programot a ROM- 
ban elhelyezett gyári program helyezi el a 


44163--0x162--bx16 7-0 


tárban, mégpedig mindig a 42E9H címtől kez- 
dődően. A tárban elhelyezkedő utasítás alakjá- 
ra minden esetben a következő szabályok ér- 
vényesek: 

e Az első két bájt az ezen utasítást követő 
utasítás címét tartalmazza. Ez az ún. mutató 
(pointer), amely megmutatja a processzornak, 
hol keresse a soron következőt. 


e A második két bájt a szóban forgó utasí- 
tás programsorának sorszámát tartalmazza, 
mégpedig úgy, hogy a harmadik bájt a leg- 
feljebb négyjegyű hexacím alacsonyabb hely- 
értékű két számjegye, a negyedik a maga- 
sabbik két számjegye. Emiatt a harmadik 
bájt a sorszám , alsó bájtja" (LSB-vel is jelö- 
lik), míg a negyedik a , felső bájtja"? (MSB- 
vel is jelölik.) A rövidítés tartalma: Less 
Significant Byte ill. More Significant Byte, 
ami gyengébben ill. erősebben jellemző bájtot 
jelent, nem teljesen szószerint fordítva. 

e Az ötödik bájttól kezdve következnek a 
BASIC utasítások kódjai ill. az ezekhez tar- 
tozó azonosító betűk, számok, konstanst je- 
lölő számjegyek ASCII kódjai. Ebben az az 
érdekes, hogy a processzor a bájtok sorrendje 
alapján különbözteti meg, hogy tartalma uta- 
sítás kód-e (angol neve token), vagy ASCII 
kód. Az előbbiekre még visszatérünk. 

e Végül a tárban elhelyezkedő utasítás utolsó 
bájtja kötelezően üres. 

Ebből láthatjuk, hogy egy utasítás hossza a 
tárban nincs korlátozva. (A korlát a bevitel- 
nél jelentkezik, nem egészen négy sor hosszú 
lehet a képernyőn). 

Az utasításkódok részben azonosak az ún. 
grafikus kódokkal, vagyis ugyanannak a kód- 
nak kétféle értelmezése van a gépben és a 
processzor feladata, hogy a bájtsorrend alap- 
ján eldöntse, melyiket hogyan értelmezze. 
Néhány utasításkódot itt közlünk : 


utasítás dec. kód hexa kód 
END 128 SÓH 
FOR 129 81H 
NEXT 135 87H 
INPUT 137 89H 
PRINT 178 B2H 
5 205 CDH 
s 213 DSH 
MID$ 250 FBH 


Az utasításkódok sorozata az END-del 
kezdődik és 253-nál a pont jelével végződik. 
Aki részletesebben kíváncsi rájuk az gépelje 
be az alábbi programot: 


10 1 — 17158: GOTO 38 

29 END 

30 K — PEEK (D 

40 K — K--1: POKEI,K 

50 CLS: PRINT "Folytatás "RUN"-a!" 

60 PRINT "Utasítás kód:"?; K 

TÓ LIST 29 

A program beindítása előtt azonban gépelje 

még be a POKE 17158,127 parancsot. Mivel 
a LIST megállltja a programunkat, minden 
újabb utasításkódért újra kell indítanunk. 


HIBAIGAZÍTÁS 


Egy olvasónk felhívta a figyelmünket, hogy 
lapunk ez évi 11. számában a TV BASIC ro- 
vatban a HOZAM program 150. sora hibásan 
jelent meg, emiatt a program által szolgáltatott 
eredmények is hibásak. 
A 150. sor helyesen: 
150 H — ( (J-U) £ (1--K) t N-DA(K : (1-- 
3HK)tN) 
A hibáért elnézést kérünk. 

DR. KOCSIS ANDRÁS 
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BÉRBE ADNÁNK KÖZÜLETEK RÉSZÉRE új j] Rövid határidőre júl 

ii szállítással vállaljuk / 

ESETLEG HOSSZABB IDŐRE IS (—" — IBM, HWB és ESZR kompatibilis mágnesszalagok ji 

Commodore 64 számítógépünket ű zi (800/1600 BPI) teljes ékezetes kinyomtatását, ; 
j konvertálását. 

(1 db Floppy, date-rette, printer, monitor 10 db mágnes- Alfanumerikus (ékezetes) adatrögzítést. / 


lemez), valamint IBM gömbfejes írógépünket. 


Érdeklődni: DOMINO GMK, 226-912 


§ ZX gépek javítását. j ] 
ls] KOMSZÁM GM ] 


Telefon: este: 842-632, du. 4-ig: 215-791 
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! papírrengeteggel? Hiányoznak az 
akták ? Késnek az ügyiratok? Nincs 
gépíró ? Ismerje meg a lehetősége- 
ket a SZÁMALK új kötetéből: 


Dobay Péter—-Poór József: 


Irodai szövegfeldolgozási rendsze- 


rek automatizálása. 


A fejlett országokban eladott mikro- 


gépek 8096át szövegfeldolgozásra 


használják. 
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olvassa el a SZÁMALK új kiad- 
ványát! 


Kapható: 


A SZÁMALK könyvesboltjában 
1115 Budapest, Szakasits Á. u. 68. 


A Statisztikai Kiadó Vállalat 
statisztikai és számítástechnikai 
könyvesboltjában 

1024 Budapest, Keleti Károly u. 10. 
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Az Állami Könyvterjesztő Vállalat 
közgazdasági és jogi könyvesbolt- jú 
jában 

1051 Budapest, Münnich F. u. 8. 


Műszaki könyváruházában 
1061 Budapest, Liszt Ferenc tér 9. 


Technika könyvesboltjában 
1114 Budapest, Bartók Béla u. 15. 


A Közgazdasági és Jogi Könyvkiadó 
Katalógus és árjegyzékboltjában 
1051 Budapest, Szent István tér 4. 


Számítástechnika 


"Az Ötletben 
továbbra is . 


di sagák 


BASIC) 


Rovatszerkesztő: HEGYI ISTVÁN 


Mi van a Basic mögött ? 


Ha most a gyakorlatban akarjuk megtekin- 
teni, hogyan fest a tárban egy egyszerű prog- 
ram, akkor célszerű rövid időre kikapcsolni 
a gépet, majd újra bekapcsolni, mielőtt a 
mintaprogramunkat begépelnénk. A program 
értéket ad egy A változónak, kinyomtatja azt, 
majd kinyomtatja a VARPTR utasítás segít- 
ségével a tárbeli decimális címét. 

10A- 5 

20 PRINT A 

30 PRINT VARPTR (A) 

40 END 

A programot célszerű kétszer-háromszor le- 
futtatni, és jegyezzük fel közben, hogy az A 
változó decimális címe 17167. A beírás után 
átállunk monitor üzemmódra. Ezt úgy érjük 
el, hogy begépeljük a ,. SYSTEM" szót, majd 
a NEW LINE billentyű lenyomása után meg- 
jelenik egy "? jelpár a képernyőn. Közvetlen 
ezek mellé begépeljük a /12710 karakter- 
sort, és újra használjuk a NEW LINE-t. Erre 
megjelenik a képernyőn egy táblázat, amivel 
most nem foglalkozunk. Ezután kell beírni 
egy D betűt és közvetlenül mögé az első tárolt 
BASIC sor hexacímét, amiről említettük, hogy 
42E9 (a H jelet nem gépeljük be, mert itt eleve 
csak hexaszámot fogad el a monitorprogram). 
E szám utolsó számjegyének billentyűzése 
után rögtön megjelenik egy sor a képernyőn 
(tehát a NEW LINE-t nem szabad most le- 
ütni!). A sor elején áll a begépelt 42E9 és 
e mögött egy — jel. Ezt követi a sorban a 
42E9 címtől kezdődően 16 bájt tartalma hexa 
alakban. Ha a következő 16 bájt tartalmára 
vagyunk kíváncsiak, akkor a , lefelé nyíl" bil- 
lentyűt kell egyszer lenyomni. Így lehet a tár 
tartalmát növekvő címek irányában kijelezni. 
Visszafelé is lehet haladni a , felfelé nyíl" bil- 
lentyű használata útján. A begépelt progra- 
munkat tartalmazó tárak tartalmát a követ- 
kező táblázatban mutatjuk be. Ebben azon- 
ban decimális értékeket és magyarázatokat is 
közlünk, amit a monitor természetesen nem 
nyújt. Megjegyezzük még, hogy a mutatók de- 
ciímális értékeit nem adtuk meg, nem lévén 
azoknak semmilyen szerepük. Továbbá figyel- 
jék meg. hogy az utolsó END utasításhoz 
tartozó mutató értéke 00H, ami a processzor 
részére jelzi, hogy itt a program vége. 


(3) 


hexa hexa deci- kód- magyarázat 
cím tarta- mális típus 
lom  tarta- 
lom 

42E9 FI mutató alsó 
bájtja 

42EA 42 mutató felső 
bájtja 

42EB 0A 10 ) BASIC utasítás 

42EC 00 0 sorszáma 

42ED 41 65 ASCII A 

42EEDS 213 ut.kód -— 

42EF 35 53 ASCII 5 

42FO 00 (0) kötelezően üres 

42FI F9 záső 

42F2 42 léskegtl 

pEgéni 00 Fid Jet. sorszáma 

42F5 B2 178  ut.kód PRINT 

42F6 20 32 ASCII szóköz 

42F7 41 65 ASCII A 

42F8 00 0 kötelezően üres 

42F9 04 A 

42FA 43 fmutató 

zár 05. ja jet. sorszáma 

42FD B2 178  ut.kód PRINT 

42FE 20 32 ASCII szóköz 

42FF CO 192  ut.kód VARPTR 

4300 28 40 ASCNH 0 ( 

4301 41 65 ASCII A 

4302 29 41 ASCII ) 

4303 00 0 kötelezően üres 

4304 0A 

4305 43 [mutató 

4207 es gyó ut. sorszáma 

4308 80 128  ut.kód END 

4309 00 (0) kötelezően üres 

430A 00 J mutató 


Fontos tudnunk, hogy a NEW parancs 
hatására ezek az utasítások a tárból nem tör- 
lődnek, csak az új program begépelt sorai ír- 
ják felül őket. Ezért egy téves NEW után 
a programunk még megtalálható. feléleszt- 
hető. 


Közvetlenül a program után következnek 
a tárban a program változói, mégpedig abban 
a sorrendben. ahogy a programban előfordul- 
tak. A változókat egy típusjelző kód vezeti be: 
02 egész, 04 szimpla valós, 08 dupla valós, és 
03 string típust jelöl. Miután mintaprogra- 
munkban az A változó szimpla valós, csak az 
ilyen számtípus elhelyezésével foglalkozunk. 
Köztudott, hogy a valós számok ún. normál 
alakra íródnak és a tárba mindig így kerülnek. 
Egy normál alak decimális ábrázolásban pl. 
ilyen lehet: 0.17E 7 ami azt jelenti, hogy 
0.17"107, értéke pedig ! 700000. A példából 
is látható, hogy a szám normál alakjára a kö- 
vetkezők érvényesek : 

a) két részből áll; az első a mantissza, a má- 
sodik az exponens ; 

b) a mantissza abszolút értékben 1-nél min- 
dig kisebb, de 0.1-nél sohasem kisebb. azaz 
1-5 mantisszaz 0.1 


c) mind a mantissza, mind az exponens elő- 
jeles számok, de a gép csak a negatív előjelet 
jelzi, a pozitív jel helyén szóköz áll. 

A számítógépben természetesen a normál 
alakra hozott számok is binárisak. A mantissza 
tehát egy ,.kettedes tört", melyre az a) sza- 
bály érvényben marad, azzal a különbséggel, 
hogy 0.1 most ugyancsak kettedes törtként ér- 
tendő. Jelöljük ezt így 290.1, és nézzük meg, 
mennyi a decimális értéke: 


50, 1 — 0420-4-14271 04272 04273 
— 2-1 — 0.5 
Néhány további példa : 
DDAT STT EÍT ke ee Sz SÜTS 
té utá BA 


290.1001 — 271--274—— 


A kettes számrendszerben ábrázolt szimpla, 
valós, normál szám négy bájtban helyezkedik 
el az alábbi sorrendben: 

I. bájt a mantissza alsó bájtja (LSB) 

2. bájt a mantissza közbülső bájtja 

3. bájt a mantissza felső bájtja (MSB) 

4. bájt az exponens 

A mantissza legnagyobb helyiértékű szám- 
jegye, ami a kettedes ponttól közvetlenül jobb- 
ra helyezkedik el, mindig 1. Ez a felső bájt 
bal szélső bitje. Egy olyan bájtot, amely min- 
den körülmények közt ! (még akkor is, ha a 
szóban forgó valós szám értéke zérus), nem 
érdemes jelölni, minden esetben oda kell ér- 
teni. Ezért a felső bájt bal szélső bitje mindig 
előjelet jelöl: 0. ha pozitív, és 1, ha negatív a 
mantissza. Az exponens előjel bitje a 4. bájt- 
nak ugyancsak bal szélső helye, de 1, ha po- 
zitív és 0, ha negatív a kitevő. Ezek szerint 
a mintaprogramunkban szereplő 5 kettedes, 
normál alakja : 


. bájt végig 0, azaz 00H : 

2. bájt végig 0, azaz 00H : 

3. bájt 10100000 lenne, ha a bal szélső szám- 
bitet kiírnánk, de mivel pozitív, ezért 
0010000, azaz 20H ; 

4. bájt bal szélső bitje 1. mert pozitív, a 
jobb félbájtban 211, azaz decimálisan 3 
áll,mivela mantisszát 23-nalkell szorozni, 
tehát a bájtban 10000011, azaz 83H sze- 
repel. 

A VARPTR utasítás mindig a szám alsó 
bájtjának címét adja meg. Maga a szám el- 
helyezése a tárban azonban nem ezzel kezdő- 
dik. A szám teljes elhelyezése ilyen : 

1. bájt számtípus jele 

Z2GRIt s ir két kárak 

3. bájt az azonosító két karaktere 

4-7. bájt maga a szám a mantissza alsó 
bájtjától az exponensig. 

A mintaprogramunk után közvetlenül tehát 

a következő tartalmak láthatók : 


— 
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Mint azt a mintaprogram futtatásánál lát- 


163 megvan 4-szer, 


hexa hexa deci- kód- magyarázat 
cím tarta- mális típus tuk, az A változó decimális címe a VARPTR 
lom tart. utasításból 17167 volt. Ez megfelel a 430FH- 

430C 04 4 a szimpla valós nak (mert 17167-ben 

számtípus jele marad 783: ebben 162 megvan 3-szor, marad 
430D 00 0 ASCII üres változó 15; ebben 16 megvan 0-szor, marad 15, ami 
430E 41 65 ASCII A j nezni FH), és a mantissza alsó bájtja valóban ezen 
430F 00 mantissza alsó a címen látható. 

DJÉJASY aelseó (Ha a tárat tovább nézzük, akkor a moni- 
4310 00 deaázz s ésájá tor üzemmódból eredő hexaszámokat látunk, 
4311 20 32 mántissza felső melyekkel itt nem foglalkozunk.) 

bájtja A tár tartalmát ezek után a ROM-ban levő 
4312 83 131 exponens bájt programok sokasága alakítja át gépi kóddá, és 


1 az 1———— — 


a processzor csak ebben a formában dolgozza 
fel, hajtja végre az egyes utasításokat. 

Mindezzel pusztán érzékeltetni lehetett a 
BASIC mögött álló programozási, technikai 
apparátust. Teljességre távolról sem lehetett 
törekedni, és a részletezettség sem elégítheti ki 
az elmélyült szakmai érdeklődést. Aki ezzel 
bővebben kíván foglalkozni, az legjobban te- 
szi, ha az ide vonatkozó (sajnos, magyar nyel- 
ven egyelőre csak egyes részeiben hozzáfér- 
hető) szakirodalommal ismerkedik meg. 


ADA-WINTER PÉTER 


— sem eszrar—— e 22 emi 2 


SZAKKÖRÖKNEK! 


Rohonyi Pál, a Soproni Erdészeti és Faipari Egyetem számítástechni- 
kával foglalkozó tanára beküldött szerkesztőségünkbe egy általa készí- 
tett példatárat, amely kifejezetten számítástechnikát oktatók munká- 
jának segítségére szolgál. A példatárban levő feladatok közül válo- 
gatunk Sorvezetőnk soron következő néhány megjelenésében. 

A feladatok megoldását szükségtelennek érezzük közölni. 

1. Írjon programot egy téglalap rajzolására " jelet felhasználva. 
A téglalap hosszúsága 7. szélessége 5 karakter legyen. 

2. Készítse el azt a programot, amely a képernyőn az alábbi , kará- 


csonyfát" jeleníti meg. 
xk 


kkk 
kkkkk 
kkkkkkk 
kokkökkökkkk 
ketkkkkktkk 
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kk 
xk 


3. Számítsa ki y értékét, ha a, b és c pozitív számok ! 


ac 
ESTE ha a-b 
arb 
y bc" haazb 


4. Ha x páros, x2 értékét, ha x páratlan, x?3 értékét írassa ki a számító- 
géppel. .x a billentyűzetről kapjon értéket! — 

5. Adott három szakasz hossza : a, b, c. Állapítsa meg programmal, 
hogy rajzolható-e háromszög a három szakasszal, és ha igen, akkor 
derékszögű-e ? 

6. Ismertek egy négyoldalú idom adatai. Döntse el a négy oldal 
és az egyik szög ismeretében, hogy a síkidom alakja 

négyzet, téglalap, rombusz, paralelogramma, 
vagy egyik sem a felsoroltak közül! 

7. Írjon egy programot, amely alkalmas két szög átlagának a kiszá- 
mítására! A szögek fokban, percben és másodpercben adottak, és az 
eredményt is így kérjük kiíratni. 

8. Három, a billentyűzetről beolvasott számból (a, b, c), kettő egy- 
forma értékű. Írassa ki azt a számot, amely különbözik a másik kettő- 
től! 

9. Készítsen olyan programot, amely a 


lna—el(x—y) 
—(3—x)10,5—x 
képletet úgy számítja ki, hogy megvizsgálja, végrehajthatók-e a benne 
szereplő műveletek. Például a logaritmus argumentuma pozitív-e, a 
gyök alatt nem negatív egész szám szerepel-e, a nevező nem nulla-e. 
Az a, x, y értékeit billentyűzetről közölje. Az eredményt az alábbi 
alakban írja ki: 
EREDMÉNY — 
Ha valamelyik művelet nem végezhető el, írja ezt ki szöveggel. 
10. Tetszőleges 0 és 5000 közötti számról döntse el a program, hány 
Jegyü. 


Jó szórakozás a nyárra! 
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Kaphatók a hírlapárusoknál 
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Rovatszerkesztő: HEGYI ISTVÁN 


Kérdések és válaszok 


A TV BASIC sorozat nézőinek kérésére el- 
kezdjük a vizsgakérdések, valamint a helyes 
válaszok közlését. Szükség esetén a kérdések- 
hez rövid magyarázatokat fűzünk. 


A vizsgán 75 db tesztkérdésre kellett választ 
adni. A tesztlapok kitöltésére a vizsgázóknak 
3 óra állt rendelkezésére. A vizsgakérdések 
különböző nehézségi fokúak voltak. A kérdé- 
sek általában nem a BASIC nyelv szintaktikus 
ismeretét kérték számon. A tesztlap össze- 
állításánál az algoritmizáló készséget ellenőrző 
kérdéseket részesítettük előnyben. 

Az elvárt magas színvonalat viszonylag 
nehéz kérdésekkel értük el. A kiértékelésnél 
minden helyes válasz egy pontot ért. A vissza- 
élések elkerülése miatt háromféle tesztlap volt, 
a három tesztlap azonban csak a kérdések 
sorrendjében tért el egymástól. Nézzük tehát 
a kérdéseket, az , A" típusú kódlap sorrendjé- 
ben! 


1. A legkönnyebb a legelső, a géptípusra 
vonatkozó kérdés volt. A TV BASIC sorozat- 
ban négy gép (HT, COMMODORE, SPECT- 
RUM, PRIMO) szerepelt. 

A négy gép közötti inkompatibilitások (el- 
térések) miatt bizonyos kérdéseknél a helyes 
válasz géptől függő volt, az első kérdésre adott 
választól függött. (A géptől függő kérdések 
számát igyekeztünk minimálisra csökkenteni.) 


Kértük tehát a vizsgázókat, hogy alaposan 
gondolják meg, hogy melyik géptípust válasz- 
ják. A vizsgát megelőző információk szerint 
sokan egyéb gépek (TEXAS, IBM PC stb.) 
ismeretével jelentkeztek vizsgára. A forgalom- 
ban levő gépek nagy száma miatt nem vállal- 
kozhattunk az összes gép specialitásainak is- 
meretére. 


A géptől függő kérdések száma összesen tíz 
ezért mindenki szerezhetett oklevelet (a géptől 
független 65 kérdésre kellett 60 helyes választ 
adni). 

2. Melyik szöveget kell beírni a számító- 
gépbe, hogy azonnal ezt a bemutatkozást 
lássuk ? 

ÜDVÖZLÖM, ELJÖTT A VIZSGA NAP- 
JA! 

1. PRINT , ÜDVÖZLÖM, ELJÖTT A 
VIZSGA NAPJA!" 


2. Id PRINT , ÜDVÖZLÖM, ELJÖTT A 
VIZSGA NAPJA!" 

3. PRINT ÜDVÖZLÖM, ELJÖTT A 
VIZSGA NAPJA! 

A helyes válasz: I 

A 2. válasz azért nem jó, mert nem azonnal 
hajtódik végre, az utasítás. 

A 3. válasz szintaktikusan rossz (de csak 
a felkiáltójel miatt !). 

3. Egy bájton 

1. Egy betű, számjegy, vagy írásjel — 
ter — tárolható , 

2. 256 db karakter tárolható, 

3. 8 karakter tárolható. 

A helyes válasz: 1. 

4. Az ön által választott gépnél egy változó 
értékadásnál a LET alapszót 

1. Mindig ki kell írni. 

2. El lehet hagyni. 

3. Nem ismeri fel a gép. 

A helyes válasz: 

I! (SPECTRUM-nál) 

2 (a többi gépnél). 

5. Melyek az azonos prioritású műveletek ? 

I. AB, A4B 

2. AsB, A/B 

2. A/B, A—B 

A helyes válasz: 2. 

6. Melyik utasítással nem indítható el beírás 
után egy BASIC program 

1. RUN 

2. GOTO sorszám 

3. CONT 

4. Mindegyikkel indítható 

A helyes válasz: 

4 (SPECTRUM-nál) 

3 (összes többi gépnél) 


Nagyon speciális a SPECTRUM, A CONT 
utasítással el lehet egy programot indítani! 
(Jóllehet a CONT utasítás egy megállított 
program folytatására való elsősorban.) Ezért 

— ígéretünktől eltérően -— SPECTRUM gépnél 
mindkét választ elfogadtuk. 


7. Milyen típusú változó tartalmazhatja 
a nagyobb numerikus értéket ? 

1. egész 

2. valós 

3. egyforma 

A helyes válasz: 2 


karak- 


Mivel a SPECTRUM-on nincs egész, ezért 
elfogadtuk a 3. választ is. 
8. Párosítsa össze a következő alapszavakat! 


1. GOSUB  A.NEXT 
2. FOR B. READ 
8: 1 C. RETURN 
4. DATA D. THEN 
5. ON E. GOTO 


A helyes válasz: A-—2, B-4, C-1, D-3, E-5. 

9. Mely változó(k) helyesek szintaktikusan 
a következők közül? 

ENDRE 

KIFLI 

KAPA 
. első 
. második 
. harmadik 
. egyik sem 
. mindegyik 

A helyes válasz: 

5 (SPECTRUM-nál) 

3 (az összes többinél) 

Mozaikszóként az IF, illetve az END szere- 
pel a változónevekben, ami csak a SPECT- 
RUM-nál megengedett. 

10. Hányszor hajtódik végre a következő 
ciklus? 

I FOR1I— 1 TOSTEP 8.1! 

28 PRINT I 

38 NEXT I 

1. egyszer 

2. egyszer sem 

3. tízszer 

A helyes válasz: 1 

A ciklus akkor fejeződik be (terminál), 
amikor a ciklusváltozó értéke meghaladja 
a végértéket. Ez az első végrehajtás után 
történik meg, ekkor a ciklusváltozó (1) az I,1l 
értéket kapja. 

11. MENNYI INT (—3.5) 


u a u 


1. —3 
2. —4 
30 4-3.5 


A helyes válasz: 2. 

Az INT beépített függvény eredménye 
az a legnagyobb egész szám, amely nem na- 
gyobb, mint az argumentum. Gondoljunk 
a számegyenesre! A —3.5 ponttól balra levő 
első egész szám a —4. 

12. Az alábbi programkészletek közül 
melyikben van szintaktikus hiba ? 

1. I FORK — I TO 1898 

29 PRINT K 

30 NEXT K 
2. 40 A — 18 

59 B- 3 

60 FOR X — 

78 PRINT X 

8 NEXT X 
3. IO FOR Xt17Z7-1ITOIB 

119 PRINT X,Z 

128 NEXT K 

A helyes válasz: 3. 

A 198 sorszámú utasítás hibás. 

13. Milyen sorrendben ír ki számokat az 
alábbi program? 


A TO B STEP--I1 


190 FORI- 1TO2 
IIdFORJ-—- 1TO2 
ERŐ PRINT 43 7.5 

138 NEXT J 

148 NEXT I 

1.44 2. d 3. 06 
t:1 12 1,2 
2,2 2 A 2,1 
6, 1 2,2 VBA 


A helyes válasz: 2. 

14. Milyen eredmény jelenik meg a kép- 
ernyőn ? 

19 SZ — 1428 

20 SZIV — 72 

30 SZU — (SZ--SZIV)/2 

40 PRINT SZ, SZIV, SZU 

1. 1428 72 756 

pang jea 0 72 

JV GAZB 12 72 
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EZZÓT 7 1 ZONE 


A helyes válasz: 

I (SPECTRUM-nál) 

2 (a többi gépnél) 

A SPECTRUM kivételével a változó- 
neveknek csak az első két betűje szignifikáns. 

15. Mi lesz a PRINT ,,1234" 3-,, 11" ered- 
ménye ? 

1. Szintaktikus hiba 

2. 1245 

3. 2334 

4. 123411 

A helyes válasz: 4. 

A fenti művelet karakteres konstansok 
egyesítését, összekapcsolását írja elő. A mű- 
veleti jel azonos az aritmetikai összeadás jelé- 
vel, az utasítás végrehajtása és eredménye 
azonban különbözik. 

16. Végre tudja-e hajtani az ön által válasz- 
tott gép az alábbi programrészletet ? 

I A — 58 

29 GOTO A 


50 REM IGAZ-E 

1. Soha 

2. Van olyan program, ahol igen, van, ahol 
nem 

3. Mindig elfogadja 

A helyes válasz: 

3 (SPECTRUM-nál) 

1 (a többi gépnél) 

17. Az a feladatunk, hogy ha A nagyobb 
mint Y, és kisebb vagy egyenlő, mint 5, 
akkor irassuk ki: IGEN. 

Melyik lesz a helyes programsor ? 

1989 IF YYY(— 5 THEN PRINT 

5 IGEN" 

199 IF YYA AND 5(— A THEN PRINT 

5 IGEN" 

189 IF YA AND A 4 — 5 THEN PRINT 

"IGEN" 


1. első sor 

2. második sor 

3. harmadik sor 

A helyes válasz: 3. 

Szintaktikusan mindhárom utasítás jó, 
a feladatot azonban csak a harmadik oldja 
meg. 

Az első változatot érdemes kissé részletesen 
elemezni. Az összehasonlítás kiértékelése bal- 
ról jobbra, az Y(A kifejezés kiértékelésével 
kezdődik. Az eredmény logikai IGAZ, vagy 
HAMIS érték. A Commodore gépen az IGAZ 
értéket az aritmetikai —1I, a HAMIS értéket 
pedig az aritmetikai 0 reprezentálja. A második 
lépésben tehát a számítógép az előző rész- 
eredményt (ami vagy 0, vagy —1 volt) és a 
konstans operandust hasonlítja össze. Mivel 
a B is ésa —I is kisebb, mint 5, ezért az össze- 
hasonlítás Y és A értékétől függetlenül mindig 
IGAZ értéket ad, a PRINT utasítás mindig 
végrehajtódik ! 

18. Számokat iratok ki 1-től 12-ig. Megold- 
ja-e mindkét program a feladatot ? 


A program B program 

19N— 1 IFORN-1ITO 12 
28 PRINT N 28 PRINT N 

30 N — N--1 30 NEXT N 


49 IF N-4-13 THEN GOTO 29 

1. Csak az A megoldás jó 

2. Csak a B megoldás jó 

3. Mindkét megoldás ugyanazt csinálja. 

A helyes válasz: 3. 

A FOR ciklusaz A változattal teljesen azonos 
módon hajtódik végre. Tehát a futás ered- 
ményét tekintve nincs különbség a két változat 
között. A B változat azonban jóval áttekint- 
hetőbb, érthetőbb, ezért jobb! 

19. A program egy betű lenyomására tovább 
folytatódik. Melyik a helyes megoldás ? 

1. 19 A$ — INKEY$ 

28 IF A$ — " " THEN GOTO 29 

2. egyik sem 


3. 18 A$ — INKEYS 
29 IF A$ — " " THEN GOTO 19 
4. IO GET A$ 
29 IF A$ — " " THEN GOTO 29 
5. 19 GET A$ 
6. 10 GET A$ 
29 IF A$ — " " THEN GOTO 18 
A helyes válasz: 
6 (Commodore) 
3 (SPECTRUM és HT) 
2 (vagy 3) (PRIMO) 
Mint a teszt-kérdések tesztelésénél kiderült, 
a PRIMO kissé szokatlanul kezeliaz INKEY-t. 
A többi géptől, no meg a józan észtől eltérően 
az AS — INKEYS utasítás az A$ változónak 
nem 0 hosszúságú karakterkonstans értéket ad, 
hanem 1 hosszú, CHR$(13) értéket. Tehát 
rossz a 3. válasz, a GOTO 10 utasítás nem 
hajtódik végre. Ennek ellenére a PRIMO-nál 
a 3. választ is elfogadtuk. 
29 Mire használható az AUTO parancs? 
1. A program átsorszámozására. 
2. Az általam választott gépen nem használ- 
ható. 
3. Automatikus sorszámozásra. 
4. Automatikus programindításra. 
A helyes válasz: 
2 (Commodore és SPECTRUM) 
3 (HT és PRIMO) 
21. Melyik utasítással lehet az összes változó 
értékét törölni? 
1. CR 
2. DELETE 
3. CLEAR 
4. Egyikkel sem. 
A helyes válasz: 


1 (Commodore) 
3 (HT és PRIMO) 


4 (SPECTRUM). 
( Folytatjuk ) 
DANIS MIKLÓS 


ahol I a fonal hossza (m), 
g a nehézségi gyorsulás (9,81 m/s t 2) 

16. Tabellázza ki a sin, cos, tg, ctg függvények értékeit 10 foktól 
45 fokig, 1 fokos lépésközzel. A kiiratási kép fejléce a következő legyen: 
SZOG(X) SIN(X) COS(X) TG(X) CTG(X) 

17. Számítsa ki az első 27 természetes szám reciprokainak összegét. 

18. Ha egy testet elengedünk nyugalmi állapotából, szabadon kezd 
esni. Az elengedéstől számított t másodperc múlva a kiindulási pont- 
tól mért távolságot méterben a következő képlet adja : 


sz05 ge. tt2 


SZAKKÖRÖKNEK! 


Feladatok 
Típus: 
ismétléses programok 


11. Képezze egy n elemű - a központi tár kapacitását meghaladó 
terjedelmű — számhalmaz összegét (pénztárgép) ! 

12. Számítsa ki programmal 89 vascső súlyát. Az adatokat futás köz- 
ben közölje a géppel. 

h — csőhossz, ro — 7,56 kg/dm3, g — 9,81 m/s2 

v 1 ,n(R2—r2); G — Vg ro 

13. Írjon ki egy 46 jel szélességű 15 sorból álló négyzethálót a kép- 
ernyőre. 

14. Írja ki az alábbi sorozat első tíz tagjának értékét: 

a(n)y—(— 1), 1/n 

15. Matemactikai inga lengésidejét számító program készítése a fela- 
dat. Az inga fonalának hossza 80 cm-től 1,1 m-ig változik, 5 cm-es 
lépésközzel. Számítandók a különböző fonalhosszúsághoz tartozó len- 
gésidők. 

A matematikai inga lengésidejét megadó formula : 


T — 2.n(l/g) t 0,5 
( ÖTLET 85 e Június 20.  ) 


Határozza meg táblázatos formában a megtett távolságot az 1., 2., 
3., ..., 22. másodpercben (g — 9,81 m/s t 2). 

19. Írjon egy programot, amely egy adott intervallumban (a cx cb) 
adott növekménnyel (c— A) kiírja táblázatos formában a képernyőre 
az x-et, x négyzetgyökét, köbgyökét. 

20. Írja ki 1-től az első n db páratlan egész szám köbgyökének értékét. 

21. Tételezzük fel, hogy egy adott p pénzösszeget n időszakra befekte- 
tünk, időszakonkénti i kamatlábbal. Az n időszakban felgyülemlett 
pénzösszeget a 

c — p(lt-) tn 


formula segítségével számíthatjuk ki. Írjon egy programot, amely p, 
és n megadása után kiírja n-ig az évenként felgyülemlett összeget. 
A kiírás minden ötödik sora után hagyjon ki 2 üres sort. 

22. Számítsa ki y-t mint x függvényét az 


3--2,1 cos x 
leve 1nx—7 
összefüggés alapján, X értéke 0,5-től 3,5-ig növekszik 0,05 lépésközzel. 
Írassa ki minden egyes x és y értékét táblázatos formában. 

23. Írjon egy programot, amely beolvas három számot, kiszámítja 
az összegüket, és az eredményt kinyomtatja, továbbá ezt az eljárást 
megismétli n-szer. 3 

24. Adott egy n elemű számhalmaz. Képezze a számhalmaz elemeinek 
összegét a sorozat elején kezdve, addig, amíg az összeg nagyobb nem lesz 
egy adott z értéknél. Ha ezt a z értéket nem éri el, akkor a teljes összeget 
kell képezni. Írassa ki az összeg értékét és annak az elemnek a sorszámát, 
amely még szerepel az összegben. 

25. Írja ki az a és b között lévő azon számokat, amelyek öttel nem 
oszthatók, de hárommal igen. 


Számítástechnika 
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INT 
I HAN 1 
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) 
II 
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NI 1248 


Rovatszerkesztő: HEGYI ISTVÁN 


Kérdések és válaszok 


22. Mire használjuk az indexet ? 

1. A vektor valamelyik elemére a vektor in- 
dexével hivatkozunk. 

2. A tömb nevét indexnek nevezzük. 

3.A DIM utasítás, és utána a tömbnév 
(DIM T(N,M)) 

A helyes válasz: 1. 

23. Mit nevezünk karakternek ? 

1. Amely a következő nyomtatás helyét jelzi. 

2. Betűk, számjegyek, írásjelek. 

3. Karaktereknek csak a $, 74, -t, £, a, ], [ 
jeleket. 

A helyes válasz: 2. 

24. Melyik igazságtábla felel meg az OR 
műveletnek? XORY 


MME 2 3 4 5 
e Mi ii I K.K. ok i IGAZ 
set h h i d i h — HAMIS 
"a EL h h i i 
MH" hi h h i 

25. Hány bit egy bájt 

1. 256 

2.8 

3. 1024 


A helyes válasz: 2 


26. Hány eleme van a következő mátrixnak : 
DIM MA (3,4) 

8512 

2.16 

3. 20 

A helyes válasz: 1. (Spectrumnál) 
3. (a többi gépnél) 

A Spectrum kivételével az összes gépnél a 
tömbök a 0. indexű elemmel kezdődnek. 

27. Formailag hány kifejezés hibás az aláb- 
biak közül 

S-.1XHxXR 

73((OXSXT) 

B--365A 

A3-Bx2.1 

1. Egy darab 

2. Kettő darab 

3. Három darab 

4. Négy darab 

A helyes válasz: 1 

A harmadik kifejezés hibás, rossz a 365A 
változónév 

28. Mit csinál a következő programrészlet 

10 MAX—B(1) 

20 FOR I-1 TO 18 


30 IF MAX- B(IDTHEN MAX —-B (1) 

40 NEXT I 

1. A program lefutása után MAX tartalma 
minden esetben B(10) lesz 

2. MAX minden esetben a legkisebb B-beli 
elemet tartalmazza 

3. MAX minden esetben a B(1)-et tartal- 
mazza 

4. MAX minden esetben a legnagyobb B-beli 
elemet tartalmazza. 

A helyes válasz: 2 


29. Hányszor írja ki a program az OK szö- 
veget 
10 FOR I-1 TO 10 
29 GOSUB 188 
30 NEXT I 
180 REM: SZUBRUTIN 
118 PRINT , OK" 
129 RETURN 
1. Egyszer sem 
2. 10-szer 
3. 11-szer 
A helyes válasz: 3 
A ciklus végrehajtása után a vezérlés rá- 
kerül a szubrutinra, a PRINT-utasítás még 
egyszer végrehajtódik. A RETURN utasí- 
tás hibát okoz, mivel a szubrutint nem GOSUB 
utasítással aktivizáltuk. A hiba megszüntet- 
hető egy 40 END utasítással. 


30. A feladatunk az, hogy ha A —§, akkor 
írassuk ki azt, hogy NEGATÍV, különben 
pedig azt, hogy NEM NEGATÍV. Melyik a 
jó megoldás? 
1. 59 IF A -Ö THEN PRINT "NEGATÍV" 
60 PRINT "NEM NEGATÍV" 

2. 50IF A -Ö THEN PRINT "NEGATÍV": 
GOTO 78 
60 IF -— AB THEN PRINT "NEM NE- 
GATÍV: 
78... 

3. 50 IF A-§ THEN PRINT "NEGA- 
TÍV": GOTO 78 A 
ked PRINT "NEM NEGATÍV" 
76... 

A helyes válasz: 3. 


31. Mennyi lesz a P értéke 
10 P—3 

29 FOR 1-1 TO 4 

30 FOR J—§ 6 STEP 4 
4 FOR K—3 TO 5 


50 P:-P4 1 

6 NEXT K 

78 NEXT J 

80 NEXT I 

98 PRINT P 

1. 27 

2: al 

3 H 

A helyes válasz: I 

32. A T(1)— 1, T(2)—2, .... T(8)—8 tömb- 
értékek esetén mi lesz. a következő program- 
részlet outputja 

I FORI-1TO8 

29 X-T (1) 

38 T(1)—T(9-D) 

40 T(9-1h—X 

50 NEXT I 

60 FOR1I-—1ITO8 

70 PRINT T(1); 

80 NEXT I 

t1234 


öö 2456 

4. Hibaüzenet 

A helyes válasz: I 

Elég nehéz kérdés volt. Sokan a 2. választ 
jelölték meg. A program először valóban meg- 
cseréli az első elemet az utolsóval, majd a má- 
sodikat az utolsó előttivel stb. De amikor a 
ciklus utoljára hajtódik végre, akkor a prog- 
ram megint kicseréli az első és az utolsó ele- 
met, vagyis visszaállítja az eredeti helyzetet! 
Nyolc elem felcseréléséhez csak négy cserére 
van szükség. A 10. sorszámú utasítást a kö- 
vetkezőre változtatva : 

19 FOR 1—1 TO 4 felcserélődnek a tömb- 
elemek. 


33. Mi lesz a kiírt szöveg? 

19 A$-"JAJ DE JO A" 

29 B$—"HABOS SUTEMENY" 

30 CS$-A$--BS$ 

49 PRINT C$ 

50 STOP 

1. Szintaktikus hibát jelez 

2. JAJ DE JO A HABOS SUTEMENY 

3.JAJ DE JO AHABOS SUTEMENY 

A helyes válasz: 3 

34. A következő utasítások között hány 
színtaktikusan hibás értékadó utasítás van 

199 G—2k6xkxH 

118 4—E 

129 FS — 

139 1—J 


"IGEN" 


A helyes válasz: 1 

A 110 sorszámú utasítás hibás egyedül. 
Összehasonlításban . azonban szerepelhet. 
Helyes tehát 200 IF 4—E THEN... 

35. Melyik az az utasítás, amellyel adatokat 
lehet kazettára vagy lemezre kivinni 

1. PRINT ik 

2. INPUT ik 

3. GET ir 

A helyes válasz: 1 

36. Mit szoktunk egy program MENÜ-jének 
nevezni: 

1.A REM utasításba írt megjegyzéseket, 
amelyek jelzik, hogy mi a programrészlet 

2. A programmal elvégezhető részfeladatok 
kiírását, amelyből a felhasználó valamelyiket 
kiválaszthatja 

3. A modulok közötti kapcsolatot 

A helyes válasz: 2 

37. Melyik nem összehasonlító művelet: 

1. scse 

ERTE 

3. AND 

A helyes válasz: 3 

Az AND logikai reláció (operátor) 

38. Mi történik, ha GOT-tal egy nem létező 
sorszámra hivatkozunk 
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1. Nem történik meg a vezérlésátadás 

2. A legközelebbi kisebb sorszámra ugrik 

3. A legközelebbi nagyobb sorszámra ugrik 

4. Futási hiba 

A helyes válasz: 3 (Spectrumnál) 

4 (az összes többi gépnél) 

Nem biztos, hogy a Spectrum külön- 
leges szolgáltatása előnyös. A hiányzó sor- 
szám valamilyen hibának a következménye. 
Ha a program leáll, figyelmeztet a hibára. 
A Spectrumnál nehéz a hibakeresés. 

39. Össze lehet-e hasonlítani két sztring 
típusú változót? 

1. Igen 

2. Nem 

3. Csak ha egyenlő hosszúak 

4. Csak ha különböző hosszúak 

A helyes válasz: 1 

40. Hogyan írjuk be az alábbi bitkombiná- 
ciót egy megadott bájtba? A bitkombináció: 
10011011 

1. CIM -— PEEK (155) 

2. POKE CIM,10011011 

3. POKE CIM,155 

A helyes válasz: 3 


41. Az alábbi számok közül melyiknek hely- 
telen a felírási formája? 

1. — 1011 

20.429 

3. 24,75 

4. 2001 

A helyes válasz: 3 

A vessző használata helytelen. 


AtB 
CxD 


42. Melyik a helytelen értelmezése az 


törtnek ? 
1. 10E- A 1B 
20 F—CxD 
30 G—E/JF 
2. 10 E—AtB 
20. F-—E/C 
30 G—FxD 
3. 10 G—(A--B)((CkxD) 
A helyes válasz: 2 
43. Mi a V$—"IGEN" 
; feltétel tagadása (ellentéte)? 
1. V$—- 5 "IGEN? OR V$—--: "YES" 
2. VS NOT—"IGEN?" AND V$ NOT— 
s YES" 
3. V$— 5 "IGEN" AND "YES" 
4. V$—5"IGEN? AND V$z:"YES" 
A helyes válasz: 2 
44. Mit ír ki az alábbi program? 
10 A—0:B—1 
201—5:1—2:K—8 
30 IF B 50 OR K-—8 THEN 1—10 


í 
40 IF J-:"1 AND I-.5 THEN B—0 


OR V$-"YES" 


50 PRINT I, J, R, K 
138218 
2.10218 


Mérlegellenőrző programrendszer 
Commodore 64-re 


Alkalmazható minden olyan iparvállalatnál, szövetkezetnél, 
Áfész-nél, Mgtsz-nél, ahol a PM előírásai szerinti mérleg- 
egyezőségi adatszolgáltatás szükséges. 


A programrendszer a PM által évente kiadott mérlegegyezőségi 
jelentés elvi felépítése alapján készült. A mérlegegyezőség 
adatait (sorszám, rovat stb.) a felhasználó adja meg, a prog- 
ram tárolja és a továbbiakban ezekkel dolgozik. A program 
rugalmassága így biztosítja a felhasználó számára az évenkénti 
változásoknak megfelelő módosításokat. 


Nyomtatási lehetőségek: 
e külső és belső összefüggések 


e külső és belső összefüggések a kapcsolódó adatokkal 


e hibajegyzék. 
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3.10208 

A helyes válasz: 3 

45. Mi jelenik meg az alábbi program fut- 
tatásakor? 


(A DZX-Spectrum esetében az ASC 
helyett a CODE függvényt használjuk.) 

10FOR1—OoOTO9 5 

20 PRINT CHRS (I--ASC(,,07)/; 

30 NEXT I 

1.0123456789 

2. 0123456789 

3. Az ASC II kódtáblázat első 10 karaktere 

4. Hibaüzenet 

A helyes válasz: 2 


Az ASC(A$) az A$ első karakterének 
ASCII kódját adja, és a CHR$(A) az A szám- 
nak megfelelő jelent adja vissza." 

46. Mit ír ki az alábbi programrészlet? 

101—7 

20 T(7)—3 

30 T(D—T(1)4-T(7) 

40 PRINT T(7) 

1. Szintaktikusan hibás 


Ben 
49 u 


A helyes válasz: 3 


Mivel a DZX-Spectrumnál kötelező a 
tömböket deklarálni, ezért aki erre a gép- 
típusra válaszolt, annál elfogadtuk azt is, ha 
egyetlen választ sem jelölt be. Természetesen 
az is jó válasz, ha feltételezte, hogy a program- 
részlet előtt már deklaráltuk a tömböt. 

47. Mit nyomtat ki az alábbi programrész- 
let? 

10 FOR 1-1 TO 5 

20 PRINT ,,x"; 

30 NEXT I 
I. x s. 30 
x 

x 

x 


3. AXXRX §.XK HR 


bedit dt 


x x 
A helyes válasz: 3 


A 20-as sorban levő ";" nem enged soreme- 
lést, és a PRINT közvetlenül egymás mellé 
nyomtatja a szöveget (ld. itt csillag) 

48. Milyen feladatot old meg a program? 

10 INPUT A 

20 INPUT B 

30 K-—INT (A/B) 

40 M—A—K XB 

50 IF M—O THEN GOTO 100 

60 A—B:B—M 

70 GOTO 30 

100 PRINT B 

1. Két szám legkisebb közös többszöröse 

2. Két szám legnagyobb közös osztója 

3. Két szám osztható-e 2-vel 

A helyes válasz: 2 


Referenciák: 


49. Futás közben milyen hibajelzést ad az 
alábbi program? 
1 DIM Z(20) 
5 A—0 
10 INPUT X,Y 
15 IF X-.20 OR X-0 THEN GOSUB 100: 
GOTO 5 
25IF Y-O THEN GOSUB 100:GOTO 45 
30 A—X7-Y x2:Z(X)— A 
35 PRINT X,Y : 
40 PRINT A 
45 INPUT "FOLYTATJA :";V$ 
50 IF V$-"I" THEN GOTO 5 
100 PRINT "HIBAS ADAT" 
110 PRINT "X POZITIV ÉS MAX 20 LE- 
GYEN" 
120 PRINT "Y NEM LEHET NEGATIV" 
130 RETURN 
1. Színtatktikai hiba 
2. RETURN GOSUB nélkül 
3. Nullával osztás 
A helyes válasz: 2. 
Hiányzik a programból a program logikai 
végét jelző utasítás, 50-100 közé kerülhetne a 
STOP, vagy az END. 


Ezt a hibajelzést például akkor kapjuk, ha 
0- —X: —20, és Y — —0, valamint a FOLY- 
TATJA kérdésre nem I-vel válaszolunk. 


50. Hogyan másoljuk kazettára a progra- 
mot? 

1. egyik sem 

2. VERIFY , név" 

3. LOAD , név" 

4. SAVE , név" 

5. CLOAD 

A helyes válasz: 4 

HT 1080Z esetén: I 

51. Melyik állítás igaz a következő sorra: 

20K—K--RS$S 

1. Szintaktikusan hibás 


2. Csak akkor okoz hibát, ha R$ tartalmaz 
nem numerikus karaktert 


3. K értéke nem változik, mert R$-t 0-nak 
tekinti 


A helyes válasz: 1 
Numerikus változóhoz akarna 
hozzáadni (típuskeveredés). 


52. Melyik utasítás helyes szintaktikailag az 
alábbiak közül? 


1. A— "ALMA" 
2. A$5— ALMA 

3. A3— "ALMA" 
1. az első 

2. a második 

3. a harmadik 

A helyes válasz: 3 


szöveget 


DANIS MIKLÓS-KŐHEGYI JÁNOS 


1800 sor egyidejű tárolása lehetséges, melyen belül a belső 
összefüggések száma max. 1600. 


Könnyűipari Gépgyártó Vállalat, Budapest 
GYÖNGYSZÖV, Gyöngyös 

Petőfi Mgtsz, Battonya 

Csepel Művek Transzformátorgyár, Budapest 
Csepel Művek Szerszámgyár, Budapest 
Fővárosi Felvonójavító Vállalat, Budapest 


A programrendszer ára: 15 000 Ft - forgalmi adó 


A programrendszer megrendelhető: 
Alkotó Ifjúság Egyesülés 
Számítástechnikai Iroda 

Bp. V., Garibaldi u. 2. 

Telefon: 112-666, 113-608 

Telex: 22-7272 

Levélcím: 1519 Budapest, Pf. 330. 
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. Ra és válaszok 


53. 

Hányszor hajtódik végre a következő ciklus? 
FOR 1I-OTOS5STEP 1 

1. 1-szer 

2. végtelen ciklus 

3. 6-szor 

4. egyszer sem 

A helyes válasz: 1 
ZX Spectrum esetén: 4 
A gép a ciklust egyszer mindenképpen végre- 
hajtja, és csak utána van ciklusváltozó vizs- 
gálat. Kivétel a ZX Spectrum, amely a ciklus 
elején vizsgálja a feltételt. 

54. 

Mi jelenik meg az alábbi utasítás hatására? 
10 X—20 
20 PRINT TAB(5); "MIKI"; TAB(X); 
"EGER" 

1. MIKI 

2. MIKI 

EGER 

3. MIKIEGER 

4. MIKIEGER 

A helyes válasz: 1 

A TAB függvénye az első pozíciótól tabulál, 
mivel X—20, az EGER a 20. pozíción kezdő- 
dik és 11 karakter választja el MIKI-től. 


EGER 


95. 

Mit ír ki az Ön gépén az alábbi program- 
részlet? 

10 DIM A(10) 

20 FOR I-1 TO 10 

30 READ A(I) 

40 NEXTI 

50 FOR I-1 TO 10 

60 PRINT A(I) 

70 NEXT I 

80 DATA 1,2,3,4,5 

1.1234500000 

2. Hibaüzenet 

3.12345 

41234512345 

A helyes válasz: 2 

1-től 10-ig olvasna a ciklus, de csak öt adata 
van. 

56. 

Mit ír ki az Ön gépén az alábbi program- 
részlet? 
10 A$ — "12347 
20 A-VAL (A$) 
30 B3—STRS (A) 


40 IF A$-B$ THEN PRINT "EGYENLO" 
1. EGYENLO 
2. semmit 
3. TEGYENLO" 
4. szintaktikus hiba 
A helyes válasz: 2 
ZX Spectrum esetén : 1 
Az STR$A) eredménye "1234" lesz. A pozi- 
tív előjel helyén egy szóköz áll. 
57. 
Melyik program számítja ki az 15253144536 
értéket (6 faktoriális)? 
1. A—1: FOR I-h-6 TO 1: A—AsI: 
NEXT I: PRINT A 
2.FOR I-1 TO 6: A—AsI: NEXT I: 
PRINT A 
3. A—1: FOR I-1 TO 6: A— Azt: 
NEXT I: PRINT A 
A helyes válasz: 3 
Az 1. válasznál hiányzik a STEP-I. 
A 2. válasznál hiányzik az A— 1 értékadás. 


58. 

Az alábbi programmal 5 beolvasott szám 
átlagát akarjuk meghatározni. Mi a hiba 
benne? 

10FORI-—1TO 5 

205-O 

30 INUTN 

40 §—$§3-N 

50 NEXTI 

60 5—S/5 

70 PRINT"ATLAG"— S 

1. Az 50. és a 60. sor föl van cserélve 

2. A 10. és a 20. sor föl van cserélve 

3. A kerekítési hibák miatt a 10-es sorban 
5 helyett 5,1-et kell írni 

A helyes válasz: 2 

Az $§—0 sornak a cikluson kívülre kell ke- 
rülnie, különben mindig csak az aktuális N 
érték lenne §-ben. 


59. 

10 IF L- 10 THEN GOTO 40 

20 IF J— —100 THEN GOTO 40 

30 GOTO 50 

40 N—N7-1 

50 REM 

Melyik programrészlettel azonos hatású a 
fenti program? 

1.10 IF L—10 AND J--—100 THEN 
N-N--1 


ZÁS EGES? 


1 
l 
! 
] 
j 


2.10 IF L——10 OR J- 
GOTO 30 
20N—N--1 
30 REM 
3. 101IF L— 10 OR J— —100 THEN 
N-N-7-I 
A helyes válasz: 3 
Az első válasz azért nem jó, mert az N— 
N--1 értékadást csak akkor hajtaná végre, 
ha mindkét feltétel teljesül. 
A második válasznál ha például L—5 akkor 
függetlenül a J értékétől nem növeli N-et. 


60. 

Mi leheta "CHR$" függvény argumentuma? 

1. [0,255] egész szám 

2. sztring konstans 

3. numerikus kifejezés, 
[0,255] lehet 

4. sztringváltozó 

A helyes válasz: 3 


61. 
Mi jelenik meg az alábbi program futásakor? 
50 FOR A—1 TO 5 
60 A(A)— A 
70 PRINT A ;A(A) 
80 NEXT A 
1. AAA AAA 
2. Szintaktikus hiba 
311 
5 gő A 
33 
44 
9. a 
A helyes válasz: 3 
Mivel a ZX Spectrumnál kötelező a töm- 
böket deklarálni, ezért aki erre a géptípusra 
válaszolt, annál elfogadjuk azt is, ha egyetlen 
választ sem jelölt be. Természetesen az is jó 
válasz, ha feltételezte, hogy a programrészlet 
előtt már deklaráltuk a tömböt. 


62. 

Melyik programsorral állíthatunk elő az "S" 
változóban egy lottószámot véletlenszerűen 
(úgy, hogy a szám elvileg bármely 1 és 90 
közötti egész szám lehessen)? 

1. 5—INT (90£:RND (0))-1 

2. S—90£RND (0)--1 

3. S—INT (90£RND (0)--1) 

4. 5—INT (895£:RND (0))--1 

5. §— RND (90)--1 

A helyes válasz: 3 (kivéve a ZX Spectrumot) 

Az 1-es válasz -1 és 88 közötti számot ad. 

A 2-es válasz nem egész eredményt ad. 

A 4-es válasz 1 és 89 közötti számot ad. 

Az 5-ös válasz 2 és 91 közötti számot ad. 

Mivel a ZX Spectrumnál az RND függ- 
vénynek nincs argumentuma, ezért ennél a 
géptípusnál egyik válasz sem volt helyes.! 

A hiba a feladatok összeállítóiban volt, és 
nem a vizsgázókban, ezért szíves elnézésüket 
kérjük! A feladatot az értékelendők közül 
töröltük és az oklevél megszerzéséhez szük- 
séges pontszámot ennek megfelelően csökken- 
tettük. 


63. 

A program szögfüggvénytáblázatot készít. 
Hol a hiba? 
10 PRINT"X(FOK)"; TABK(10); "SINCX)"; 
TAB(24) ; "COS(X)" 
20 FOR X-—0 TO 90 STEP 10 
30 Y—3.14159265£X 
40 PRINT X; TAB(7); SIN(Y); TAB(21); 
COS(Y) 
50 NEXT X 

1. A 30-as sorban a szögértéket a gép ra- 
diánban értelmezi, ezt meg kell szorozni 
3.14159265/180-nal. A sor tehát helyesen: 
Y—3.141592654X/180 

2.A 10-es sorban feleslegesek a " jelek. 

3. A 10-es és 40-es sorokban nem pontos- 
vesszőt kell írni, hanem csak vesszőt, mert nem 
lesz pontos a táblázatos formula. 

A helyes válasz: 1 


C 


100 THEN 


amelynek értéke 
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64. Melyik utasítás ír felül egyetlen byte-ot a 
memóriában a következők közül? 

1. PEEK (12000),135 

2. POKE 12000,135 

3. POKE (12000)— 135 

4. MOVE (110,120) 

5. Egyik sem 
" A helyes válasz: 2 

65. Hányszor hajtódik végre az alábbi ciklus? 

100 FOR I-—20 TO 0 STEP-I 

110 NEXT I 

1. 20-szor 

2. egyszer sem 

3. 21-szer 

A helyes válasz: 3 

66. A program futásakor egy STOP utasítást 
hajtott végre. Hogyan folytathatom tovább 
a BASIC programot úgy, hogy. a változók 
megőrizzék értéküket? 

1. Csak a program újraindítására van le- 
hetőség. 

2. RUN N. "N" az a program-sorszám, 
ahonnan a programot folytatni akarom. 

3. CONT utasítással. 

A helyes válasz: 3 

67."P" milyen értéket kap a program lefu- 
tása során? 

10 P—15 30 B—40 

20 A$—"K" 40 P—30 

50 IF ((A$—-—"S"TOR((A$—-"K")AND 
(B 5.40))) THEN P—20 

1. 30 

2415 

A helyes válasz: 4 

Ügyelni kell az 50-es sorban levő kifejezés 
kiértékelésének sorrendjére. 

IGAZ OR ( IGAZ AND HAMIS ) 

IGAZ OR HAMIS 

IGAZ 

68. Az Ön gépén melyik program írja ki a 
képernyőre az alábbi szöveget? 

A szöveg: "IDEZET" 

1. PRINT" "IDEZET" " 

2. PRINT CHR$S(" " "IDEZET"; 
CHR$C" 59 23) 

3. PRINT CHRS$ :(34); "IDEZET" ; 
CHRS$:(34) 

4. PRINT CHR$:( 3477); "IDEZET" ; 
CHR$:07347) 


3. 40 
4. 20 


A helyes válasz: 3 

69. Melyik utasítást helyettesítenébea" ""-gal 
jelzett helyre, hogy a program az A vektor 
legnagyobb elemét írja ki úgy, hogy a vektor 
tartalma nem változik meg? 

10 DIM A(10) 

20J-1 

30 FOR I-2 TO 10 

40 IF A(J) — A(D THEN " 

50 NEXT I 

60 PRINT "A LEGNAGYOBB ERTEK — 
"A() 

1. A — A(J) 

2. M—A(1) 

3.J-I 

4. A(JJ)—A(D 

5. 1-—J 

A helyes válasz: 3 

Minden lépésben az addigi 
elem indexét jegyzi meg. 

70. Mit ír ki a ciklus után az alábbi prog- 
ramrészlet? 

60 FOR F—ITOS5 


legnagyobb 


160 NEXT F 

170 PRINT "F—";F 

1. F—4 

2.ES5 

3. ES6G. 

A helyes válasz: 3 

A ciklusváltozőban a lépésközzel megnö- 
velt érték van. 

71. Adott 3 szakasz. A feladat az, hogy 
eldöntsük, alkotható-e belőlük háromszög. 
Hol a hiba a programban? 

(A, B, C, a szakaszok hossza) 

10 INPUT A 

20 INPUT B 

30 INPUT C 

40 IF A3-B- —C THEN GOTO 80 

50 IF A3-C5 —B THEN GOTO 80 

60 IF B-C5 —A THEN GOTO 80 

70 PRINT "A KERULET—";A3-B--C 

75 STOP 

80 PRINT "NEM ALKOTNAK HAROM- 
SZOGET" 

1. A 40-es sorban nem A3-B-- —C, hanem 
Ct-B- —C kell. 


2. A STOP nem a program végén van. 

3. A 40,50 és 60-as sorokban a ) jelet ( 
jelre kell cserélni. 

A helyes válasz: 3 

72. Mit csinál 
részlet? 

10 FOR I— I TO 10STEP 1 

20 FOR J—11—I TO 10 STEP 1 

30 PRINT " "; 

40 NEXTJ 

50 PRINT ",," 

60 NEXT I 

1. 10 sort emel, majd alájuk új sorba egy 

pontot tesz 

2. Egy ferde, pontokból álló egyenest rajzol 

a képernyőre, melynél az első sorban 
10 szóköz előzi meg a pontot, a második- 
ban 9,..., a 10.-ben pedig 1 

3. Egy ferde, pontokból álló egyenest rajzol 

a képernyőre, melynél az első sorban 
1 szóköz előzi meg a pontot, a második- 
ban 2, . . ., a 10-ben pedig 10 

A helyes válasz: 3 

73. A program két szám maximumát hatá- 
rozza meg. Melyik sorban van a hiba és mi az? 

10 INPUT A 

20 INPUT B 

30 M-R 

40 IF AZ B THEN M—A 

50 PRINT"MAX.—";M 

1. A 30-as sorban M változó helyett az 
A-t kell használni. 

2. A 40-es sorban nem M-—A, hanem 
A—M kell. 

3. A 40-es sorban a 4 jelet 12-ra kell vál- 
toztatni. 

A helyes válasz: 3 

Az eredeti program két szám minimumát 
határozza meg. 

74. Az alábbi programban a 30-as sor 
helyére a következőket írja az, aki a ZX 
Spectrum gépre válaszol : 

30 A$— A$--X$(LEN(X$)—I1-- 1) 

A program: 

10 A5S-—" " 

20 FOR I-1 TO LEN(X5) 

30 A$—A$-3-MID$(X$, LEN(X$)—1-- 1, 1) 

40 NEXT I 

Milyen karaktereket ír a fenti program- 
részlet az A$ változóba? 

1. Az X$ első és utolsó karakterét fel- 
cserélve 

2. X$ tartalmát 

3. X$ karaktereit fordított sorrendben 

A helyes válasz: 3 

Mivel a programrészlet az X$ változó tar- 
talmától függően dolgozik, ezért feltehettük, 
hogy az X$ változónak már van értéke. Ez 
tetszőleges szövegtípusú érték lehetett. 


a következő program- 


75. Mit csinál a következő program- 
részlet? 

(T$-ban a nevek növekvő sorrendbe ren- 
dezettek) 


80 INPUT "NEV—";N$ 

90 U—-—100 : E— 1 

100 K—INT ((11--E)/2) 

110IF U.K E THEN PRINT N$; "NEM 
SZEREPEL" ;STOP 

120 IF T$(K)—N$ THEN PRINT K N$: 
STOP 

1301F T$((K)YXNS THEN U-KWI: 
GOTO 100 

140 E—K--1 150 GOTO 100 

1. Egy beolvasott név T$ tömbbeli előfor- 
dulási számát írja ki 

2. Névsor szerint növekvően rendez, kiírja 
az elemszámot 

3. Egy beolvasott nevet keres, és ha meg- 
találta, akkor kiírja a sorszámát 

4. Egy beolvasott nevet illeszt a tömbbe 
és kiírja a sorszámát 

A helyes válasz: 3 ú 
5 KŐHEGYI JÁNOS 
TÓTH-ZSIGA KORNÉLIA 
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Vizsga után... 


Sohasem hittem volna, hogy milyen nehéz 
objektíven írni valamiről, amihez az ember 
érzelmileg is kötődik. Már a harmadik kéz- 
irat kerül a papírkosárba, így kénytelen va- 
gyok tudomásul venni, hogy a TV BASIC- 
ről ez az írás elfogult lesz, hiszen lépten-nyo- 
mon kiderül, hogy a szemüveg, amelyen ke- 
resztül az eseményeket vizsgálom, nagyon is 
rózsaszínű. Így a kritikát átengedem mások- 
nak, magamnak pedig megtartom a krónikás 
szerepét. 

Ha már a kritikánál tartok, kaptunk né- 
hány, esetenként szigorú, máskor elnézőbb 
hangvételű levelet, amelyek részben Kocsis 
András könyvét, részben az adásokat bírál- 
ták. A könyv következő kiadását most készí- 
tik elő, a kapott észrevételeket a szerző figye- 
lembe veszi, a hibákat kijavítja. 

Sok telefonhívást is kaptunk, ezeknek a jó 
része dicsér bennünket, de nem fukarkodtak 
az észrevételekkel sem, amit tudtunk, azt 
még a sorozat vetítése alatt -— ugyanis ekkor 
készültek az utolsó részletek - felhasználtuk. 


A leveleknek és a telefonoknak is azért örül- 
tünk, mert jó volt érezni, hogy törődnek ve- 
lünk, a TV BASIC társadalmi üggyé vált. 
Valamennyien hittünk abban, hogy bizonyos 
számítástechnikai ismeretek tömegoktatása 
ma társadalmi igény. Nem mondom, hogy 
nem vártuk izgalommal az első adások utáni 
híreket, hogy nézik-e az adást, ott maradnak-e 
a nézők a készülék mellett és végigülik-e a 
teljes sorozatot. Elfogadják-e a távoktatást, 
ami ebben a formában az első oktatási kez- 
deményezés volt Magyarországon - szinte 
minden előzmény nélkül. Az eredmény talán 
azokat igazolta, akik a stábnak bizalmat sza- 
vaztak. Kb. 250000 volt a nézőszám, ami 
nem kevés. 

Azt hiszem rögtön az írásom elején kell a 
, stábról" is beszélnem. Nagyon sokan vol- 
tunk, különösen ha a , szurkolókat" is beszá- 
mítom, akiknek az időnkénti biztatása sok 
mindennel felért. Bizonyára nem tudok min- 
den személyt és intézményt megnevezni, akik 
nélkül nem tudtuk volna a sorozatot így el- 
készíteni és az általuk meghatározott idő- 
pontban megkezdeni. Azokra gondolok, akik 
rekordidő alatt kinyomtatták és a nézőkhöz 
eljuttatták a könyvet, akik türelemmel ismé- 
telték az elrontott felvételeket, akik felkarol- 
ták és sikerre vitték a u klub mozgalmat és 
akik szigorúan levezették a vizsgákat. A TV 
BASIC csapatmunka volt. 


Megpróbálom végigkövetni a TV BASIC 
hiteles történetét. 

Talán azt mondom el először, hogy miért is 
a BASIC nyelv oktatását választottuk. (Csak 
zárójelben jegyzem meg, hogy amikor a ma- 
gyar társadalom informatizálásáról és termé- 
szetesen a TV BASIC-ről is ez év májusában 
a várnai oktatási konferencián beszámoltam, 
az egyik dán barátom megiegyezte, hogy- 
hogy nálatok nem tilos BASIC-xkel szennyezni 
az agyakat, miért nem a LOGO-t tanítjátok !) 
Neki is, más barátaimnak is - akik a 
PASCAL-t vagy az APL-t, esetleg a FORT- 
RAN-t, de volt olyan szakember is, aki a 
COBOL-t ajánlotta - elmondtam, hogy a vá- 
lasztás tulajdonképpen nagyon könnyű volt. 
Amikor eldöntöttük, hogy programozást fo- 
gunk tanítani és azt gyakoroltatni is akarjuk, 
nem elégedve meg azzal, hogy a nézők csak 
papíron - ceruzával oldjanak meg programo- 
zási példákat, akkor egyértelmű volt, hogy 
kizárólag a BASIC jöhetett számításba, hi- 
szen ez a kiválasztott HT, Commodore 64, 
Sinclair Spectrum és PRIMO gépeknek az 
egyetlen közös nyelve. 

És a gépek! Kaptunk olyan tanácsot, hogy 
csak egy gépet válasszunk ki, de melyiket? 
A HT-t, ekkor csak a középiskolásoknak fog 
szólni a tanfolyam. Ha csak a Commodore 
64-et vagy csak a PRIMO-t választjuk, akkor 
akár klubfoglalkozást is rendezhettünk volna, 
hiszen ezekből a gépekből tavaly még nem 
volt túl sok az országban. A Spectrum főleg 
az egyéni , tehetősebb" számítógép-tulajdo- 
nosoknak szólt volna, ezért azután nem volt 
más választásunk, a tankönyvet és az adást 
is mind a négy gépre szerveztük. (El kell mon- 
danom, hogy végül is csak néhány VIC 20 és 
ZX81 tulajdonos neheztelt igazán.) 

A könyv Kocsis András munkája. Nem volt 
könnyű ezt a könyvet megírnia, már csak 
azért sem, mert a kéziratot részben a TV szer- 
kesztője Hegyi István, illetve a sorozat ren- 
dezője Albert József és a felkért zsüri Ada- 
Winter Péter, Faragó Sándor, Meskó Andor, 
Pál László, Páris György, valamint e sorok 
írója többször is átnézte és néhányszor át is 
iratta. Kocsis Andrásnak olyan könyvet kel- 
lett szerkesztenie, amelyik egyszerre tankönyv 
és a forgatókönyv alapja, egy olyan forgató- 
könyvé, amelynek ki kellett elégítenie a peda- 
gógiai követelményeket, de a televíziós film 
sajátos feltételrendszerét is. 

Meg kell említenem a TV-s kollégákat is, 
hiszen alkotó társaink voltak, ha megakad- 


tunk, akkor együtt oldottnuk meg sok olyan 
problémát, ami egy hivatásos számítástechni- 
kusnak is gondot okozott volna. Azt hiszem, 
nem tévedek, sokan közülük, de más televí- 
ziósok is a felvételek alatt szerették meg és 
művelik azóta is az informatikát. Azt hiszem 
talán a legfáradhatatlanabb segítőnk Kovács 
Gabriella, a rendező munkatársa volt, ma 
már lelkes szotfver amatőr, azután Dobai 
Sándor az operatőr, Horváth Andrienne ka- 
meramann és a többiek. 

Azután számítógépeket kellett szerezni és 
azokat a televíziós berendezésekhez kellett il- 
leszteni. Elárulhatom, azért volt viszonylag 
kevés illusztráció a HT gépekhez, mert a mi 
HT gépünk illesztése sehogyan sem akart si- 
kerülni, a saját képernyőn még csak-csak ol- 
vasható szöveg a TV képernyőjén szép színes 
és olvashatatlan foltokká , remegedett"?" Ek- 
kor persze néhány óra alatt át kellett írni a 
programokat, a forgatókönyvet és persze meg 
kellett ismételni a felvételt. 

A választott , színészekről" - Herneczky 
Katalin, Majsa Katalin, Pinkert László, Kis 
Donát és jómagam - túlzás. lenne azt állítani, 
hogy közvetlenül a Színművészeti. Főiskolá- 


. ról ültek be a stúdióba. Most megint el kell 


árulnom egy titkot, főleg azoknak; akik azt 
kifogásolták, hogy miért tördelte szét az adást 
a rendező és a szerkesztő, miért jelent meg 
egy adásban 3-4 szereplő is, miért nem egy- 
valaki mondta végig a szöveget, mutatta be 
az aktuális példát — miközben könnyedén mo- 
solyoghatott volna a nézőre. Nem tudtuk volna 
megcsinálni. Én speciel hosszú ideig emlékezni 
fogok arra az egyetlen nem is túl hosszú bőví- 
tett mondatra, amelyet vagy másfél órán ke- 
resztül mondogattam, gondosan ügyelve arra, 
hogy minden ismétléskor a mondat külön- 
böző részeiben hibázzak. A küzdelemten vesz- 
tettem, a mondatot csak másnap - pihenten - 
tudtam - igaz akkor elsőre - hibátlanul el- 
mondani. 

Amikor a vizsga után egy isméretlen tele- 
fonáló rám zúdította minden haragját, az 
egyik fő kifogása az volt, hogy nem a tan- 
könyvet játszottuk el a TV-ben, hanem valami 
mást. Akkor megkérdeztem tőle, hogy tud-e 
olvasni, mert ha nem, akkor értem a felhábo- 
rodását, ti. a tananyagot a könyv tartalmazta. 
Dicsértem éles megfigyelőképességét, hogy a 
könyv és a TV-műsor közötti különbséget 
észrevette, azt is elmondtam, a különbség 
szándékos volt. Azt szerettük volna ugyanis, 
ha a nézők az adásokból megértenek néhány 
dolgot, kedvet kapnak és a könyvből tanul- 
nak és nem azt várják, hogy a képernyőről 
sulykoljuk beléjük az anyagot. Akik ezt vár- 
ták, azok kb. a harmadik-negyedik adás után 
s; bedobták a törülközőt". 


Nem volt az elmondottaknál könnyebb a 
számítógépes gyakorlat megszerzése sem, hi- 
szen még a BASIC nyelvet sem lehet gyakor- 
lási lehetőség nélkül úgy tanítani, hogy abból 
magas szintű vizsgát lehessen tenni. Arról 
nem is beszélve, hogy a megírt, kipróbált és 
a hibátlanul! futó program élménye elenged- 
hetetlenül szükséges a tanulás közbeni önellen- 
őrzéshez és a sikerhez. Ezért még a tanfolyam 
megindulása előtt a Neumann János Számító- 
géptudományi Társaság szoros együttműkö- 
désben a Tudományszervezési és Informatikai 
Intézettel, majd a mozgalomhoz csatlakozó 
KISZ KB-vel, a TIT-tel, a Népművelési In- 
tézettel közösen u klubmozgalmat szervezett. 
Annak ellenére ugyanis, hogy minden közép- 
iskolában, az egyetemeken is van számítógép, 
de nem kevés gép van magánkézben, ezen- 
kívül sokan a munkahelyükön is hozzájutnak 
gyakorlási lehetőségekhez, úgy véltük, hogy 
nem kevesen lesznek az olyan TV-nézők, akik- 
nek így sem lesz lehetőségük, hogy számító- 
gép közelébe jussanak. Első felhívásunkban 
- még a TV BASIC indulása előtt - arra kér- 
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tük a segítőkész intézeteket, iskolákat, gyá- 
rakat, szövetkezeteket, de a magánosokat is, 
hogy csatlakozzanak a mozgalomhoz, alakít- 
sanak u klubokat, amelyeknek egyetlen mon- 
datból álló alapszabályát deklaráltuk : enged- 
jék a számítógépeikhez ülni azokat, akik meg 
akarják ismerni a számítógépeket és a klub- 
ban jelentkeznek. Igen rövid idő alatt az or- 
szág szinte minden táján több mint 200 beje- 
lentett, de egyre inkább látszik, hogy ennél 
sokkal több u klub alakult. A TV BASIC 
, diákjai" éltek az alkalommal. Külön kiemel- 
ném az iskolákat, ahová a diákok elvitték elő- 
ször a barátaikat, azután a szüleiket, majd az 
érdeklődő szomszédokat is, felnőtt módon 
segítve őket a géppel való ismerkedésben. 


Azt reméljük, hogy a u klubok tovább mű- 
ködnek, most készítjük a tervet, hogyan le- 
hetne a munkájukat segíteni anélkül, hogy 
egyfajta központi irányítás terhét a nyakukba 
varrnánk. 


Utoljára a vizsgáztatást kellett megszervez- 
nünk, amelyet a Neumann Társaság és a 
SZÁMALK közösen vállalt. A hagyományos 
vizsgáztatás szóba sem jöhetett, hiszen az elő- 
zetes jelentkezések alapján többezer vizsgá- 
zóra számítottunk. A példaképnek tekintett 
angliai Open University módszerét, a teszt- 
lapos vizsgáztatási formát fogadtuk el. A vé- 
letlen szerepét a vizsgáztatásban úgy küszö- 
böltük ki, hogy a tesztlap kérdései a teljes 
anyagot átfogták, így akiaz anyagnak csak 
egy részét ismerte, annak a vizsgája nem sike- 
rülhetett. A feladatokat az ELTE Számítás- 
technikai Tanszékénak munkatársai Kőhegyi 
János, Fliszár Katalin és Tóth-Zsiga Korné- 
lia, valamint Danis Miklós a SZÁMALK 
munkatársa állították össze, mint az eredmény 
is mutatja, , egyetemi" színvonalon. Az össze- 
gyűjtött több mint 200 kérdésből a vizsgalapra 
74 került. Akik vizsgáztak, azok igazolhat- 
ják, hogy a kérdések 8094-ára - ez volt a 
, megfelelt" szint — csak azok tudtak válaszol- 
ni, akik nemcsak megismerték a BASIC nyel- 
vet, de meg is tanultak programozni. Leg- 
alább egy kis BASIC gyakorlat kellett ahhoz, 
hogy a vizsgázók a feladatok között elrejtett 
,, bombákat" felismerjék, mert különben a 
látszólag egyszerű kérdésekre sem tudtak vá- 
laszolni. 


Annak érdekében, hogy elegendő viszga- 
helyszínt, valamint vizsgabizottságot bizto- 
sítsunk - a vizsgabizottság elnökét a SZÁ- 
MALK, két tagját az NJSZT adta - a saj- 
tóban jelentkezési lapokat jelentettünk meg a 
TV BASIC előtt a Mikromagazinban, a tan- 
folyam befejezése előtt pedig a Rádióújságban 
és az Ötletben. A megadott határidőig körül- 
belül 10.000 jelentkezést regisztráltunk. A szá- 
míiítógépes feldolgozás során kiderült, hogy 
meglehetősen sokan többször is - volt olyan 
jelentkező, aki háromszor is - jelentkezett. 
Végül a duplikátumok kiszűrése után 6352 
jelentkezést igazoltunk vissza, minden jelent- 
kező írásbeli választ kapott, hogy hol és mikor 
kell a vizsgán megjelennie. A teljes számító- 
gépes feldolgozást hárman készítették - Baly 
Lászlóné és Hethessyné Pap Gizella az 
NJSZT Titkárság munkatársai, valamint Pol- 
gár László, aki rekordidő alatt írta meg a 
szükséges és sokszor változtatott programo- 
kat. A vizsgákhoz a termeket főleg az iskolák 
és a felsőoktatási intézmények biztosították, 
ezúton is megköszönjük a segítségüket. A sta- 
tisztikából kiderül, hogy Budapesten a legtöbb 
vizsgázó a XI. kerületből jelentkezett (246), 
legkevesebben az V. kerületből (51), vidéken 
a legtöbben Pest megyéből (461) és a legkeve- 
sebben Vas megyéből (74). 

A vizsgára nem jött el mindenki, össze- 
sen 2799-en jelentek meg, a jelentkezettek 
44 069/4-a. A vizsgázók életkor szerinti meg- 
oszlása megfelelt a várakozásnak : 8 éves volt 
a legifjabb vizsgázó és megfelelt, két 78 éves 
vizsgázónknak sajnos a vizsga most nem sSi- 
került. 

Többen azt mondták, hogy a diákoknak 
magas volt a 200 Ft-os vizsgadíj, ha alacso- 
nyabb lett volna, akkor sokkal többen vizsgáz- 
tak volna. Még így is - az ábrából is látszik - 
két korosztály adta a legtöbb vizsgázót, a 
14-20 évesek, az általános iskola felső. tago- 
zatosai és a középiskolások, az előfelvételisek 
és az elsőéves egyetemisták, a vizsgázók 
48,69/5-a, valamint az ún. ifjú szakemberek, az 
egyetemet vagy főiskolát éppen végzettek, de 
mindenképpen fiatal dolgozók (a 26-31 évesek) 
a vizsgázók 16,994-át. Hogy az aktív egye- 
temi és főiskolai hallgatók miért nem jöttek 
nagyobb számban, annak a kiderítése talán 
alaposabb vizsgálatot igényelne, biztosan el- 


hamarkodott vélemény lenne azt mondanunk, 
hogy az egyetemi számítástechnikai lehetősé- 
gekkel nincs minden a legnagyobb rendben. 

Összesen 74 pontot lehetett kapni, az a 
vizsgázó kapott bizonyítványt, akinek leg- 
alább 57 pontot sikerült összegyűjtenie. Elő- 
zetesen 60 pontos határt állapítottunk meg, de 
a vizsgáztatók javaslata alapján a központi 
vizsgabizottság a vizsgakérdések közül hár- 
mat utólagosan törölt, ezekre ugyanis több 
helyes válasz is volt, az igazság úgy kívánta, 
hogy ezeket ne vegyük figyelembe. Így alakult 
ki az 57 pontos határ. 

Összesen 1236 sikeres feladatlapot adtak be 
(114 nő és 1122 férfi), így a vizsgázók 44,296-a 
kapott bizonyítványt. Maximális pontszámot 
- Bártfainé Bihari Rozália pécsi és Bakarecz 
Attila dombóvári vizsgázónk ért el, személyi 
számuk alapján a gépen az említett két kor- 
csoportba tartoznak. 

Legifjabb sikeres vizsgázónk a nyolcéves 
ifj. Koszper Vilmos budapesti fiú, a sikeres 
vizsgázók doyenje a 66 éves Molnár Marcián 
Győrből. Érdemes megemlítenünk, hogy a 
Magyar Néphadseregben 147-en jelentkeztek 
vizsgára, főleg sorkatonák és jövendő egye- 
temi hallgatók, de hivatásos katonák és pol- 
gári alkalmazottak is. 

A Neumann János Számítógéptudományi 
Társaság és a COSY GT díjat ajánlott fel a 
legjobb vizsgaeredményt elért alakulat u klub- 
jának, egy-egy Primo számítógépet. A töb- 
bi alakulat a Néphadseregtől serleget, illetve 
tárgyjutalmat kapott. A két gépet a ceglédi, 
illetve a zalaegerszegi helyőrség kapta, ahol az 
országos átlagnál jóval magasabb eredmény 
született, a ceglédi katonák 81,594-a, míg a 
zalaegerszegiek 62,594-a vizsgázott sikeresen. 
Az ünnepélyes bizonyítvány és díjkiosztás 
június 27-én volt. 

Befejezésül csak annyit, hogy készítjük a 
következő sorozatot (Számítástechnika alkal- 
mazási alapismeretek) és gondolkozunk újabb 
sorozatokról is. Ugy véljük a távoktatás csa- 
tát nyert, reméljük, hogy a megismételt TV 
BASIC és a többi számítástechnikai tanfolyam 
is egyre jobban segíteni fogja közös célunk 
elérését, társadalmunk informatizálását. 
Budapest, 1985. június 28. 


KOVÁCS GYŐZŐ 


SZAKKÖRÖKNEK! 


56. Adott az al, a2, ..., an valós számokból álló számsorozat. Írjon 
olyan programot, amely kiszámítja a számsorozat: 


a) legkisebb elemét (sorszámával együtt) 
b) átlagát 

c) legnagyobb abszolút értékű elemét 

d) négyzetösszegét. 


rendben. 


sort. 
1 2 
6 Vú 
11 12 
16 17 
A s 22 
26 27 


tot, amely az A és B vektorok tartalmát együtt tárolja növekvő sor- 


58. Írja ki az első száz egész számot húszas csoportokban. Egy cso- 
port 4 sorból és 5 oszlopból áll. Minden csoport után hagyjon ki 2 üres 


3 4 2 
8 9 10 
13 14 15 
18 19 20 
23 24 25 


59. Adott n pont az x, y koordinátarendszerben. Határozza mr3 a 


pontok közti legkisebb távolságot. 


60. Adott egy pakli magyar kártya. Ezt a következő módon keverje 


össze: a legfelső kártyát az új pakliban legalulra tegye, a következőt 
legfelülre, és utána váltakozva hol alulra, hoi felülre tegye a következő 
kártyákat, amíg az új pakli kialakul. Írja ki a kártyák eredeti, majd az 


új sorrendjét. 


61. Határozza meg egy ön által definiált függvény segítségével az 
alábbi kifejezés értékét. Az n és k értékét a billentyűzetről kapja. 


A próbafuttatáshoz szükséges tesztadatokat a programban helyezze el. 


57. Adott egy A számsorozat, amelynek 20 eleme növekvő sorrendbe 
rendezett. Ugyancsak adott egy B számsorozat, amelynek 30 eleme 


van, s ezek csökkenő sorrendbe rendezettek. Tárolja a két számsoroza- 
tot az A és B vektorban. Hozza létre a C vektorban azt a számsoroza- 
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állít elő. 


n! 
KÖÉ TT ESSEN 


62. Írjon programot, mely egy adott mondat szavaiból új mondatokat 


Az Ötletbenr 
továbbrais 5 


Amikor csaknem fél évvel ezelőtta TV-BASIC 
rovat indulásakor leírtam ezt a mondatot az 
Ötletben, akkor a saját magam és ismerőseim 
körében már tapasztaltam, hogy a számító- 
géppel való fóglalkozást abbahagyni lehet, 
befejezni nem. Azóta a nézők, az Önök le- 
velei, a Mikro-klubokban folytatott beszél- 
getések meggyőztek arról, hogy ez másokkal 
is így van. minderről azért kell beszélni, mert 
ha az akkori induló cikk logikáját követve 
stílszerűen . a: BASIC nyelv kulcsszavai (és 
azok jelentése) közé csoportosítva fejteném 
ki mondandómat, most a tv-adások befejez- 
tével, a vizsga után talán az END (vége) 
kulcsszó leírása lenne kézenfekvő. 

A program azonban továbbra is fut, foly- 
tatódik. Folytatódik, mert a számítógépek- 
kel kapcsolatos ismeretek iránt ma is tömeges 
az érdeklődés; sőt azt is megkockáztatnám, 
hogy ma alig kevesebben, talán ugyanannyian 
tanulják (továbbtanulják, szeretnék tanulni) 
a BASIC nyelvet mint a tv-adások indulása- 
kor. Hogy mire alapozom ezt? Először is nem 


Rovatszerkesztő: HEGYI ISTVÁN 


A program Ítovább) fut 


valószínű, hogy akik végigtanulták a Tv 
BASIC-et, vagy akár azok is, akik sikeres 
vizsgát tettek, abbahagyták volna a számító- 
géppel való foglalkozást, hiszen tudásukat 
használni, , kamatoztatni" szeretnék. 

Számítsuk még ide a szünidős diákokat, 
akik táborokban, művelődési házakban vagy 
éppen gm-ek szervezte , maszek" tanfolya- 
mon, netán saját gépen egyedül most ismer- 
kednek a BASIC-kel. 

S máris eljutottunk az új géptulajdonosok- 
hoz, akik turistaútról most hozzák vagy ho- 
zatják gyereküknek, családjuknak, maguknak 
a modern időknek ezt a szimbólumát. 

A BASIC-kel való ismerkedés tehát folyta- 


Ahány programozó 

— annyi módszer. 
Nem biztos, hogy 
mindegyik követendő 


tódik. Gyakran még a televíziós adásokat sem 
kell nélkülözni a tanuláshoz, hiszen nagyon 
sok helyen rögzítették képmagnóra a műsoro- 
kat, oktatócsomag formájában videókazettán 
is forgalomba került. Kulturális intézmények- 
ben, vállalatoknál is sok helyen hozzáfér- 
hetők. 

Hadd jegyezzük meg azt is, hogy a tv-adá- 
sok megismétlésének sem a ténye, csupán az 
időpontja vitatott. 

A TV-BASIC rovat tehát folytatódik ; tájé- 
koztatásként következik most egy rövid fel- 
sorolás arról, hogy mire számíthat benne a 
kedves olvasó a továbbiakban. 


PROGRAM 


Mindenekelőtt visszatérünk a vizsgakérdé- 
sekre. Egyrészt azért, mert meglehetősen sok 
kérdés, levél érkezett velük kapcsolatban, 
másrészt úgy tűnik, ezekbe a közleményekbe 
az átlagosnál ist öbb sajtóhiba , sikeredett". 
Mivel a téma (vizsgakérdés — helyes válasz) 
különösen hibaérzékeny, mindenképpen szük- 
séges a magyarázat, esetleg a helyesbítés. 


HALADÓKNAK 


Természetesen nem feledkezünk meg azok- 
ról, akik kezdettől kitartóan foglalkoztak a 
TV-BASIC-kel. Számukra egy-egy összetet- 
tebb probléma megoldásának módszerét, 
programozási eljárások alapelveit és gyakor- 
lati megvalósításukat néhány ismertebb gépen 
bemutató cikksorozat indul. 

A cél az, hogy az olvasók a sorozat végén a 
gyakorlati munkában is jól használható prog- 
ramhoz jussanak kellő elméleti megalapo- 
zással. 


ÚJ GÉPEK 


A TV-BASIC indulása óta több új gép jelent 
meg a külföldi és természetesen a hazai piacon 
is (pl. Commodore 16.) Azokat az újdonsá- 
gokat, specialitásokat, amelyeket az eddig 
megismertekhez képest ezeknek a gépeknek a 
programozása jelent, szintén tárgyalni sze- 
retnénk. 


PÁLYÁZAT 


A Peremartoni Vegyipari Vállalat 
. pályázatot hirdet terv- és statiszti- / 
" kai osztályvezetői munkakör betöl- 
tésére. 
A munkakör betöltésének feltétele : 
közgazdaságtudományi egyetem 
vagy Pénzügyi-Számviteli Főiskolai 
végzettség. 
Kétéves vállalatnál 
vezetői gyakorlat. 
Fizetés megegyezés szerint. Alkal- 
mazás esetén megfelelő összkom- 
fortos lakást biztosítunk. 
A pályázatokat 1985. augusztus 31- 
ig kell megküldeni a vállalat sze- 
mélyzeti és oktatási osztályára 


szerzett 


(8182 Peremarton-gyártelep, tel.: 
33-160/171-es mellék) 

A pályázók 1985. szeptember 30-ig 
kapnak értesítést. 
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ETTSZ ÜK SEEK E Be. 7 IHEFELZEZEZERI BESEZMÉESZ 417. CEZOFit 


a. FOKESSZSds: a: FUKESSZZOL a 
18 FRIHTEZ" : 556 :GOSUB119gA 
A za FOKRISATO7T 
ÚJ TANULÓK 38 ACIJSINT(RHOC1OtA. 5) 
A kezdőknek, akik most vágnak bele a sze- 39 HETI je 
mélyi számítógép megismerésébe, nem ismé- 28 FORIZETO7 
teljük elölről a tanfolyamot, hanem kissé A 0-IXZ 
másfajta, gyakorlatibb megközelítést kínálunk. TH IFRfI:S1THEMGOTOSE 
Abból indulunk ki, hogy a BASIC anyaga, 72 szr:GSOZSUEZBAR: Sz1i:COSUEZAARE: SOTOSA 
tankönyvek, esetleg a korábbi Ötlet számok ak S51:GOSUR1RER: Sz: GOSBZORA 
általában hozzáférhetők, tanulmányozhatók. 38 MEA;TI 
Ezért kezdetben egyszerűbb, később össze- 119 37 
tettebb feladatokat, feladatsorokat fogunk 128 FORI-ATO7 
közölni, amelyeknek megoldása alkalmat ad 128 5-54tAfIGHEZTI7—-I: 


arra, hogy az olvasók az alapoktól indulva 1498 
áttekintsék és gyakorolják a BASIC utasításait. 
A sorozat címe: , Programváltozatok egy 
témára". Bízunk benne, hogy talán azoknak 
is segít majd, akiknek nem sikerült a vizsga, 
és azoknak is, akik még előtte megtorpantak. 


FÓRUM MIKRO-KLUBOKNAK 
Úgy tapasztaljuk, hogy a TV-BASIC tan- 


HEXTI 
A FRIMT"IERPBBRBBRBEEBTETTYTTTÉN BE RTETTÉNN" ; C 

178 GETÁZ: IFASz""THEMGOTI17A 

188. GOTC1A 

1983 PRINT"Ay" 

FORJAEL1TOS:PRIHT:MHEXT 

PRIMHTSPC£CI a; "TT 

FRINTSFCCO2G "1 

1848 FRIMTSFCTD9; "I 


I 
s ta 
I 


folyamhoz szerveződött  mikro-klubok jó 1858 PRIMHTSPC-(O:; "I P" 
része nem szünteti be működését a vizsga 18EB FRINMTSFPCCD; "1 j" 
után sem. A klubtagok továbbra is találkoz- 1978 RETURH 


nak, megbeszélik problémáikat, kicserélik 
tapasztalataikat. A tapasztzlatcserének mik- 


1185 PRINT"A" 


ro-klubok között is van létjogosultsága, s sze- 11985 F JRIZITOS :"FRIHT:MHEATJI 
retnénk neki teret adni a TV-BASIC rovatban. 1118 FKINT 
(Ebben a tv , Mi és a számítógép" c. műsora 112E RETURH 
is segíteni fog.) Z2AARA PRINT"29" 
zH1A FORJISÍTOZ:FPRIMHT:MHEST 


Várjuk tehát a Mikro-rklubok jelentkezését 
közérdekűnek tartott kérdésekkel, ötletekkel, 


zOZA FPRIHTSFÉ-(M4,"T [7 


követésre javasolt módszerekkel. 2939a PRINMNTSPCCDOZZMI I" 
zE49 FEIHTZSFCÉTI TI 
. Sésé FRINTSEGCOJZ I eg 
71 ARRA elte AAL , 29069 PRINTSPCCO2 s Lem 
Izelítőül és a , fejtörésre" vágyó olvasók ked- 2A7A RETURH 
véért máris közlünk egy kezdő és egy kicsit 2AAA PRINT"Ay" 
. sááztálssagagzátgzt ÉNEKES ; 3A19 FORJELTOS:FRIMT:MEXT 
1. (Kezdőknek) A képernyő bal felső sar- ZAZA PRIHTSFCCO;" " 
kából átlója mentén, tehát ferdén lefelé íras- 2838 PRINTSPECOI;" " 
sunk ki a géppel 15 db ,,0" karaktert. 2948 PEÍNTEPEGD S pi ú 
2. Mit csinál, mit szemléltet az alábbi Com- 2959 FRINTSFCCDJ; " " 
modore 64-re készült program? (jobbra) zétozbsétlss § vet lálezi ő szája 
GÉ kezére gt 39£A PRIMTSPOCOI" ji 
A helyes megfejtők jutalma a sikerélményen 3A7A RETURH 


kívül csupán a szerkesztő elismerése. 


SZAKKÖRÖKNEK! 


46. Egy árucikk hatjegyű cikkszámát kiegészítik egy hetedik ellenőrző 
jeggyel úgy, hogy az úgy kapott számban a számjegyek összege 11-gyel 
osztható legyen. Definiáljon egy függvényt a kód ellenőrzésére. 

47. Tároljon 14 tesztadatot a programja vektor formájában. Írjon 
egy programrészletet, amely, alapján az 1., és 2., 3. és 4., ...13. és 14. 
helyen lévő elemek helyet cserélnek. 

48. Töltse fel egy A nevű (6,6)-os mátrix páros sorainak elemeit az 
i t j-en (i — sorindex; j — oszlopindex) értékével. A páratlan sorokba 
pedig vigye az alatta lévő sor (-1)-szeresét. 

49. Egy vállalatnál évről évre kimutatást kell készíteni a dolgozók 
végzettség és fizetés szerinti eloszlására. A kimutatásban az alábbi ka- 
tegóriák szerepelnek : 


Végzettség Fizetés : 
1. iskolai végzettség nélkül I. — 0-1999 
2. általános iskola 2. 2000-3999 
3. középiskola 3. 4000-5999 
4. főiskola, egyetem 4. 6000- 


Feltételezzük, hogy az összes dolgozó a fenti kategóriákba besorol- 
ható. Határozza meg, hogy az egyes végzettség-fizetés kategória- 
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párokba a vállalat hány dolgozója tartozik. Az adatok párokban, vég- 
zettség-fizetés sorrendben állnak rendelkezésre. 

50. Értékelje egy tanulócsoport osztályzatait. Mutassa ki a jegyek 
alapján: 

— az egyéni átlagokat, 

- az egyes tárgyak csoportátlagát, 

— a csoport átlagát. 

51. Állítson elő a programjában egy (8,8)-as egységmátrixot. A mátrix 
jellemzője, hogy a főátlóban 1-esek, az összes többi helyen 0-k talál- 
hatók. Írja ki a mátrix elemeit ellenőrzésképpen. 

52. Tárolja egy n elemű számhalmaz értékeit a programjában. Bő- 
vítse a programját egy olyan résszel, amely a tárolt számhalmaz 3 leg- 
nagyobb elemét kiírja. 

53. Tárolja egy 4 sorból és 5 oszlopból álló számtáblázat értékeit a 
programjában egy (4,5)-ös mátrix formájában. Bővítse a programját 
egy olyan résszel, mely tárolja a (4,5)-ös mátrix elemeit sorfolytonosan 
egy (20)-as vektorban is. A vektorban a mátrix első sora után a 2., 3., 
majd 4. sora következzen. 

54. Két szám , távolsága" a számegyenesen a két szám különbségé- 
nek abszolút értéke. Olvastassa be az al, a2,... an (n előre adott) szám- 
halmazt, majd határozza meg a számhalmazon értelmezhető legkisebb 
távolságot. 

55. Rulett játékprogram. A program a felhasználó által begépelt szá- 
mot értékelje ki a rulett játékszabályai szerint. Ezek a következők: 

- a szám mezejének a színe (vörös vagy fekete) 

vörös; 1, 3.5. 7, 9. E2; 14. 16, 18. 19, 21, 23, 25, 27, 30, 32, 34, 36 
fekete: 2 46.88, 10, 41.13; 15. 17, 20.22. 24, 26.28. 29. 31, 33, 35 
színtelen : 0,37 

- a szám páros vagy páratlan 

ROHONYI PÁL 


6) 


Í Az Ötletben i 


. továbbrais . 


Az Ötlet 1985. jún. 20-i, 27-i, és júl. 4-i, 11-i 
számaiban megjelent TV-BASIC vizsga kér- 
déséiben és válaszaiban szereplő sajtóhibák- 
ról több észrevétel is érkezett. Valóban, ez- 
úttal a nyomda ördöge minket is megtré- 
fált. Ezúton kérünk elnézést a kedves Olvasó- 
tól és reméljük, hogy a közölt javítások már 
hiba nélkül jelennek meg. 


e Nagyon sok helyen az idézőjelek a magyar 
helyesírás szabályainak megfelelően alul- és 
felül szerepelnek, pedig a számítástechnika 
szabályai szerint csak felül lehetnek. 

e Az 5. kérdés válaszlehetőségei rosszul let- 
tek sorszámozva, a helyes válaszok természe- 
tesen: 1, 2, 3. 

e A 10. kérdésben szereplő ciklus első sora 
helyesen: 

FOR I—1 TO 1 STEP 8.1 

e A 12. kérdés megfogalmazásában prog- 
ramkészletek szerepeltek  programrészletek 
helyett. 

e A 17. kérdés programsorai helyesen : 

199 IF Y —Ac —5 THEN PRINT "IGEN" 
I IF YA AND 5--4A THEN PRINT 
"IGEN? 
100 IF YA AND Az —5 THEN PRINT 
"IGEN" 


e A 18. kérdés "A" programjában a 40-es 
sor helyesen: 
4 IF N-13 THEN GOTO 28 


e A 19. kérdéssel kapcsolatban érkezett né- 
hány bíráló megjegyzés a PRIMÓ-ra vonat- 
kozóan. A levélírók véleménye szerint a 
PRIMO az INKEY-t a többi géphez hasonló 
módon kezeli. Elfogadtuk ezt a választ is, bár 
az általunk használt PRIMO ettől eltérően 
működött. Az eltérő működést valószínűleg 
a megbízhatatlan klaviatúra okozza. 

e A 21. kérdéshez kapcsolódva volt olyan 
levélíró, aki azt írta, hogy a ZX Spectrum gép- 
nél a CLEAR utasítás törli a változók érté- 
két. Valójában azonban nem a változók érté- 
két törli, hanem magukat. a változókat szün- 
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Ismét a vizsgakérdésekről 


teti meg, így felszabadítva az általuk használt 
tárolóterületet. (Ezzel az utasítással lehet a 
BASIC számára felhasználható tárterület 
felső határát is megadni.) 


e A 24. kérdés igazságtáblájában a négyes 
válasz alatt a harmadik "i" betű hiányzott. 
A jó válasz pedig: 4. 


e A 30. kérdés második programrészletének 
60-as sora helyesen: A 
60IFA:-0 THEN PRINT"NEM NEGATÍV" 


e A 31. kérdés 30-as sora helyesen : 
30 FOR J—Ö TO 6 STEP 4" 


e A 34. kérdés 120-as sora helyesen : 
128 F$-"IGEN" 


e A 38. kérdésben GOTO-val helyett GOT- 
tal lett nyomtatva. 

60 A 43. kérdés helyes válasza nem 2, ha- 
nem: 4. 

e A 44. kérdés 50-es sora helyesen: 
50 PRINT I, J,B,K 

e A 45. kérdés 20-as sora helyesen : 
29 PRINT CHR$ (I--ASCC")) ; 


0 A 49. kérdés magyarázatának utolsó 
mondata a következő: 

Ezt a hibajelzést például akkor kapjuk, ha 
0 —Xcz —28 és Y- —§, valamint a FOLY- 
TATJA kérdésre nem [I-vel válaszolunk. 

e Az 53. kérdésben szereplő sor helyesen: 
FOR 1—8 TO 5 STEP -1 


e Az 54. kérdés első válaszának helyes for- 
mája a következő : 
f MIKI EGER 

e Az 56. kérdés magyarázatának vége he- 
lyesen: 
Az STR$ (A) eredménye " 1234" lesz. 

e A 68. kérdésből lemaradt a következő ma- 
gyarázat: 
A "ASCII kódja : 34. 

A lehetséges válaszoknál pedig a CHR$ 
után sehol sem kell kettőspontot írni. 

e A 72. kérdés 50-es sorában a PRINT uta- 
sítás formája : 
50 PRINT "." 

e A 73. kérdés 30-as sora helyesen: 
309 M-B 

Ugyanezen példa választható 
közül a 3. válasz helyesen: 
A 40-es sorban a — jelet -—--ra kell változtatni. 

e A 75. kérdés 100, 130, 140-es sorai helye- 
sin zá 
190 K—INT ((U 1-E)/2) 
138 IF T$ (K)-—N$ THEN U-K-I1 : GOTO 
180 
149 E—K--1 


lehetőségei 


DANIS MIKLÓS-FLISZÁR KATALIN- 
KŐHEGYI JÁNOS 


Tisztelt Commodore-felhasználók ! 


A Fotoelektronik-Novotrade GT szá- 
miítógépszervizében az alábbi új fej- 
lesztéseket rendelhetik meg: 


1. VC—-1541 floppymeghajtó egység 
kapcsolóval történő átalakítása 8-as, 
9-es címre. Átalakítás ára anyaggal 
együtt: 590 Ft 


2. Magyar karakterkészlet az MPS- 
802-es nyomtatóba és a C-64-es 
alapgépbe. Ezáltal a képernyőn meg- 
jelenő szöveg és a nyomtatási kép a 
magyar helyesírásnak megfelelően je- 
lenik meg. Ára beépítéssel együtt: 
3972 Ft. 


3. Hypralód gyorstöltő. Lehetővé teszi 
a floppyról a memóriába való betöltés 
felgyorsítását. A programozott funk- 
ciógombok segítik a felhasználót a 
gép kezelésében, a hypralód átkap- 
csoló és a beépített reset gomb lehe- 
tővé teszi, hogy a programok 9096-ával 


KOCH EVE HÉE TEZESZ SZEREZNE GESTA TEAT VT 


PETKEZZETN 


a program együtt futtatható. Ára 
beépítéssel együtt: 3540 Ft. 

4. Programfejlesztő rendszer a CBM— 
600 és —700 típusú gépekhez. 


EXTROM-BASICHASSEMBLER 
Az EXTROM-BASIC cartridge-ben: 
16 000 Ft 


ASSEMBLER: 4000 Ft hl 


( 
t 
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— Az Ötletben 


továbbra is . 


A űj Il JUNANES 


BASIC 


Rovatszerkesztő: HEGYI ISTVÁN 


EGG HB EZER in — EZTET 


A következőkben olyan minitanulmányok közreadását kezdjük el, 


amelyek 


azt hivatottak érzékeltetni, hogy miként lehet egy gyakorlati problémát , szá- 
mítógépes" eszközökkel megközelíteni, megoldani. 

Az egyik ilyen lehetséges módszer, hogy a számítógép segítségével meg- 
próbáljuk modellezni a valóságos folyamatot. Már a modell elkészítése során 
is, de működtetése, változtatása közben mindenképpen hasznos tapasztalatokat 


gyűjthetünk. 


A modellnek mint , művi valóságnak" a megkonstruálása során persze jelen- 
tős egyszerűsítésekkel lehet és kell is élni, különösen akkor, ha a gép, amellyel 


dolgozunk, nem túl nagy kapacitású. 


Ennek az egyscerűsítésnek a mértékétől is függ, de elsősorban elhatározás- 
tól, hogy egy ilyen problémából játékot csinálunk-e vagy sem. És itt a játékot 
egyáltalán nem lekicsinylően kell értelmezni. Tudniillik lehet, hogy egy nagy- 
számú egyszerűsítést tartalmazó játékból azokkal inkább megismerhetjük az 
adott feladat lényegét, mint egy agyonbonyolított modellből. 


A szerkesztő 


Készletezz okosan! 


A círaet a , Gazdálkodj okosan" (korábban: 
, Capitaly") nevű játék átalakításával adtam az 
alábbi számítógépes modellnek. Egy, a való- 
ságos körülményeket jelentősen leegyszerűsítő 
számítógépes , játék"-ról van szó, melyben a 
modell használója egy raktárvezető-anyag- 
rendelő szerepkört játszik. Az egyszerűség 
érdekében raktárunkban csak egyféle alkat- 
részt tárolunk és hogy ne kelljen túl nagy szá- 
mokkal dolgoznunk, legyen ez az alkatrész a 
viszonylag nagyméretű képcső, melyből a tv- 
készülékeket szerelő üzem melletti raktárban 
400 db fér el. A , raktáros?" maga rendeli a 
képcsöveket a képcsőgyártól és adja ki na- 
ponta a szerelőműhelynek. A raktárt kétféle 
költség terheli : 


ea tárolás költsége képcsövenként és na- 
ponként és 


eaz esetleges készlethiányból eredő terme- 
léskiesés költsége. Az első költség 400 db kép- 
csőig állandó és azon felül a darabszámmal li- 
neárisan, egyenes arányban növekszik. A ter- 
meléskiesés költsége a darabszámmal erős 
progresszivitásban nő, azaz pl. az elmaradt 
darabszám köbével lehet arányos. (A pontos 
összefüggésekre később kerítünk sort.) Ilyen 
körülmények közt a raktárost abban tesszük 
( érdekeltté, hogy az egy megtermelt tv-ké- 


szülékre jutó raktározási költséget (ezt faj- 
lagos költségnek fogjuk nevezni) a lehető leg- 
alacsonyabb szinten tartsa. A raktáros di- 
lemmája nyilvánvalóan a következő: 


e ha túlbiztosítom magam, akkor túl sok 
képcső áll a raktárban, magas lesz a tárolási 
költség; 

e ha éppen annyit rendelek, amennyit való- 
színűleg kivételez a műhely, akkor a termelés- 
kiesés viszonylag nagy kockázatát vállalom; 

e ha túl keveset rendelek, akkor a termelés- 
kiesés következtében gyakorlatilag elúszott a 
prémiumom. 

Mindehhez tudnunk kell még a következő- 
kst: 

ea képcsőgyár mindig reggel, munkakez- 
dés előtt szállítja a raktárnak az alkatrészt, 
de a szállításban van bizonyos előre ki nem 
számítható bizonytalanság, ingadozás; 

ea szerelőműhely naponta vételez ki kép- 
csövet, 200 és 300 db közötti véletlenszerű 
mennyiségben, amennyiben az előző napon 
igényét a raktár kielégítette. Ha előző nap 
készlethiány állt elő, akkor a műhely mindig 
350 db képcsövet vételez ki; 

e a tárolt készletnek az minősül, ami esté- 
től reggelig áll a raktárban. 


A raktáros mindig este, a munka befejezése 
után rendeli meg a következő reggeli szállí- 
tást, de 

eannak a valószínűsége, hogy valóban 
másnap reggel kerül sor szállításra, csak 90994 
és 1094 valószínűséggel késhet a szállítás egy 
napot; az elmaradt szállítás napján a képcső- 
gyár nem vesz fel rendelést ; 

e a raktáros által rendelt mennyiséget nem 
pontosan tartja be a képcsőgyár: a szállított 
mennyiség a rendelt mennyiségnek 809/4-ától 
120946-áig terjedő véletlenszerű mennyiség. 

A modell 20 napos raktározást szimulál oly 
módon, hogy a legelső nap reggel a képcső- 
gyár automatikusan (rendelés nélkül) 600 db 
képcsövet szállít a raktárra. 

Végül is az a játékos játszik a legeredménye- 
sebben, aki a 20 napra vonatkoztatott leg- 
kisebb fajlagos raktárköltséget éri el. Annak 
érdekében, hogy esténként a raktáros körül- 
tekintően adhassa fel rendelését, minden mun- 
kabefejezés után egy helyzetjelentést kap a 
képernyőn, melynek alapján azután döntését 
meghozza és bebillentyűzi. A jelentés az aláb- 
biakat tartalmazza : 

e Éppen hányadik napnál tartunk? (N) 

e Raktárkészlet nagysága a reggeli szállítás 
előtt. (R4) 

e Ehhez a készlethez fűződő tárolási költ- 
ség. (Y1) 

e A képcsőgyár reggeli szállítása. (M3) 

e Az utoljára rendelt mennyiség. (R3) 

e Készlet a reggeli szállítás után. (R2) 

e A szerelőműhely aznapi igénye. (S1) 

e Kielégítettük-e az aznapi igényt? (igen- 
nem) 

e Ha nem, akkor mennyi a hiány? (52) 

e És mennyi az ebből eredő termeléskiesési 
költség? (Y2) 

e A kumulált (addig összesen létrejött) ter- 
melés darabszáma. (54) 

e Az aznapi, a raktárt terhelő költség. (Y3) 

e A kumulált raktározási költség (Y4) 

e Az aktuális (a folyó napig számított) faj- 
lagos költség. (Y5) 

e A raktárban éjszakára megmaradt kész- 
let. (R1) 

A programot modulokból, BASIC nyelvről 
lévén szó, mondhatjuk, hogy szubrutinokból 
építjük fel. A főprogram egymást követően 
négy modult hív be, melynek folyamatábrá- 
ját az /. ábra mutatja. Van ezeken kívül még 
egy ötödik szubrutin is, mely az esti jelentése- 
ket nyomtatja, ezt azonban nem a főprogram, 
hanem az ,, Esti raktár" nevű modul hívja be. 
Két kisebb szubrutinról később esik szó. Ezek 
után tekintsük át az egyes modulok feladatát. 

a) A , Képcsőgyár" szubrutin minden vég- 
rehajtásánál átveszi a folyó nap számát, N-et, 
és megvizsgálja, hogy N — 1 igaz-e. Ha igaz, 
akkor több paramétert nem vesz át. M3-ast, 
a reggeli szállítás mennyiségét 600-zal teszi 
egyenlővé és M5-öt, amely jelzi, hogy aznap 
este elfogad-e rendelést a képcsőgyár, zérusra 
állítja (M5 — 1 a rendelés letiltását jelenti). 
Ezután visszatér a főprogramba. 

Ha viszont nem az első napról van szó, 
akkor a szubrutin további két, esetleg három 
adatot vesz át: 

e az előző napon előállított M5-öt, 

ea raktáros által este feladott rendelést, 
R3-at és 

e ha az átvett M5 eggyel volt egyenlő, akkor 
az előző napon képzett M4-et (melynek értel- 
mét az alábbiakban látjuk). 

M3-nak, a reggeli szállításnak az előállításá- 
hoz először M2-t állítjuk elő, ami véletlen- 
szerű --] vagy -1-gyel szorozza M4-et, ami 
ugyancsak véletlen szám és a rendelt mennyi- 
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KÉPCSŐGYÁR 


REGGELI RAKTÁR 


SZERELŐ ÜZEM 


égnek, R3-nak legfeljebb a 2099-a, pontosab- 
ban ennek egész értéke, mivel tört darabszá- 
mot nem értelmezünk. M4-gyel olyan szám- 
hoz jutunk, amelyet R3-hoz hozzáadva, annak 
80-12094-a közti értéket kapjuk. M5 elő- 
állításához először egy 0 és 1 közé eső vélet- 
len számot generálunk, amely ha 0,9-nél ki- 
sebb, akkor M5 — 0 értékadáshoz vezet, 
egyébként M5 — ! történik. Ez utóbbi esetben 


IGÉNYÉVEL FORDULJON 
SZAKÜZLETÜNKHÖZ! 


A PÁTRIA NYOMDA 


VÁRJA VÁSÁRLÓIT! 


— komputer etiket címkék 


— papír — írószerek 


Budapest XIII., 
Csanády u. 5. 


Cím: 
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LEPORELLÓRA VAN SZÜKSÉGE? 


NYOMTATVÁNYELLÁTÓ KIRENDELTSÉGE 


SZÁMÍTÁSTECHNIKAI SZAKÜZLETÜNK AJÁNLATA: 


— számítógépek sornyomtatóihoz leporellók széles választékban 
— számítógépes pénzforgalmi nyomtatványok (átutalási és beszedési megbízások) 


M2-RND(Ó) 
M4-INT (RND(.236 R3)) 
M1-RND(6) 


a szállítandó mennyiségre az M3 — 0 érték- 
adás megy végbe, ha viszont M5 zérus lett, 
akkor az M3 — R3--M4 értékadás kerül 
végrehajtásra és ezt követi a szubrutin zárása. 
Ha az előző napon M5 — 1 volt, akkor ezt 
zérusra állítja, majd az előző napról megma- 
radt R3 és M4 értékekből képezi az M3-at. 
Ennek blokkdiagramját a 2. ábrán látjuk. 
b) A , Reggeli raktár"? szubrutin mindenek 


— peremlyukkártyák, lyukszalagok (5 és 8 csatornás) 
— telextekercsek (1, 2 és 3 példányos) 
— pénztár- és összeadógépszalagok 


298-089 
498-552 


Telefon: 


Y1:236(R4— 
400) : 1000 


előtt átveszi a folyó nap sorszámát és M3-at, 
a képcsőgyár által szállított mennyiséget. Ha 
Ha N—-— 1, akkor R4-nek, az éjjel tárolt 
mennyiségnek zérusértéket, R2-nek, a kép- 
csőgyári szállítás után kapott mennyiségnek 
az M3 értékét adja. Ugyanitt S3 zérus lesz, 
ami azt jelzi, hcsy a műhely előző napi 
igénye ki van elégítve, ezt követőleg egy kis 
szubrutin kiszámítja R4 felhasználásával a 
készletezés aznapi költségét, amit YI jelöl. 
Ezután visszatér a főprogramhoz. 

Ha viszont N— 5-1, akkor az átvett R4, 
az éjszaka készletezett mennyiség alapján az 
említett kis szubrutin kiszámítja az aznapi 
készletezési költséget. Ezt a költségfüggvényt 
így adtuk meg: 
bv KSS 1000, ha R4— — 400 

". (23(R4-400)1-1000, ha R4-. 400 
Ezután még R2-nek, a képcsőgyár szállítását 
követő raktárkészletnek a kiszámítása kö- 
vetkezik, majd visszatéri ; a főprogramba. 

Ez a folyamatábra a 3. ábrán figyelhető meg. 


( Folytatjuk ) 
ADA-WINTER PÉTER 


Nyitva tartás: 
Hétfő—Péntek : 7.30—15.30-ig 


"Az Ötletben 
- továbbra is . 


Rovatszerkesztő: 


es tözseűzöseeeeszát talá süzezási 


IC TI 


MT 


HEGYI ISTVÁN 


Készletezz okosan! (2.) 


c; A főprogram a , Szerelő üzem" szub- 
rutin hívásával folytatja működését. Itt 
először is azt vizsgáljuk meg, hogy az 
előző nap volt-e készlethiány. Ha nem volt, 
azaz ha §3 — 8 igaz, akkor a raktártól 
lehívandó SI mennyiség a 2005 
xx RND(100)-ból kapható, ha viszont volt 
hiány, akkor az SI — 350 értékadást 
hajtja végre. Ezután megvizsgálja, hogy a 
képcsőgyár szállítása után létrejött R2 
raktárkészlet elegendő-e az S1-ben támasz- 
tott igény kielégítésére. Ha igen, akkor a 
hiányjelző S3 zérus lesz, az S4-ben tárolt 
kumulált termelési darabszámhoz hozzá- 


S3-1 
S2-S1-—R2 
S4-S4:R2 


S3-g 
S4-S4:SI 


Y2SUBR 
t 


adjuk az utolsó lehívott (és ugyanennyi 
megtermelt) S1 mennyiséget. Ha viszont 
a lehívott SI mennyiség nagyobb, mint a 
raktárban jelenlevő R2 készlet, akkor S3 
értéke 1 lesz (jelezve másnapra, hogy ma 
az igény nincs kielégítve), S2-be beírjuk 
a hiány nagyságát. S4-hez pedig annyit 
adunk hozzá, amennyit a raktár még ki- 
elégíteni képes volt. Ezután egy újabb 
kis szubrutin kiszámítja Y2-t, a termelés- 
kiesés költségét az alábbi függvény szerint : 
Y2- 3xS52x52, ha S2— — 58 
Y2 — INT(S2 1 3/16), ha 59—S52— —180 
Y2 — INT(S2 1 4/1598), ha 199 —-S52 

A 4. ábra ennek a blokkdiagramját szem- 


lélteti. 
d) Végül az , Esti raktár" szubrutin kerül 


Y3-YI:Y2 
Y4-Y4rY3 
YS-Y4/S4 


végrehajtásra. Ebben először is vegyük 
az esti maradék készletet (R1), amely az 
R2-S1 különbségből képződik, de hogy 
negatívvá ne váljon, vizsgálatot tartunk, 
és ilyen esetekre az RI — 0 értékadással 
biztosítjuk a negatív készlet elkerülését. 
Ezután a napi összköltséget számítjuk az 
Y3 — YI3-Y2 értékadással, Y4-ben jön 
létre a kumulált költség úgy, hogy na- 
ponta hozzáadjuk a napi összköltséget. 
Végül YS5-ben állítjuk elő folyamatosan 
az addig eltelt időszakra vonatkozó faj- 
lagos költséget azzal, hogy az addig ku- 
mulálódott költséget elosztjuk az addig 
előállított összes termék számával. Ezt 
követi a jelentés készítő szubrutin, mely- 
re külön folyamatábra nem készült. In- 
nen visszatérve meg kell vizsgálnunk, 
hogy a folyó nap száma nem érte-e el az 
utolsót, a 20-at, mert ez esetben nem szük- 
séges újabb rendelést feladni, visszatérünk 
a főprogramba. Egyébként meg kell adni 
a másnapi rendelést, de csak abban az 
esetben, ha aznap nem maradt el a kép- 
csőgyár szállítása. Emiatt vizsgálatot kell 
tartanunk M5-re, melynek  zérusértéke 
engedi csak meg a rendelés feladását. Ha 
ez megengedett, akkor egyszerű INPUT 
utasítással visszük be a következő napi 
rendelést, R3-at. A program az egyszerű- 
ség érdekében úgy védekezik abszurd érté- 
kek ellen, hogy minden értelmezhetetlen 
rendelési adatot értelmessé alakít át az- 
zal, hogy a megadott számnak abszolút ér- 
tékben vett egész értékét használja. Ha 
a bevitel nincs megengedve, akkor ezt ki- 
írás jelzi, és hogy ez el ne fusson a kép- 
ernyőn, a szokott módon, billentyű- 
leütésig dinamikusan megállítjuk a prog- 
ramfutást. Végül, hogy a következő napra 
ill. ciklusra R4 éjszakai készlet és RI esti 
maradék értékei megfelelőek legyenek, 


egy értékadó utasításpár zárja a szub- 
rutint. (5. ábra) 

Talán nem fölösleges megjegyezni, hogy 
ebben a programban a modulokra bontás 
többféle szempont szerint történt : 


e A programszerkezet strukturáltságát 
valósítják meg az egymástól elkülöní- 
tett, , Képcsőgyár", , Reggeli raktár", 
, Szerelőműhely", és , Esti raktár" szub- 
rutinok. 

e Az utólagos beavatkozás lehetőségét 
könnyítik meg a , Nyomtatás", vala- 
mint a raktározás költségét képező két 
költségkomponens Y1 és Y2 kis szub- 
rutinokba helyezése. Az Y1 nevű rutin 
hívása két helyen is szerepel, ezzel tel- 
jesíti a szubrutinok , klasszikus"? fel- 
adatát, hogy ti. a többször, nem szabá- 
lyos ciklusokban ismételten használt 
programrészeket szubrutinokba írjuk, 
hogy ne kelljen ugyanazt kétszer leírni, 
ill. kétszer a tárban elhelyezni. 

Ezek után már nincs más hátra, mint a 
programlista bemutatása, melyhez meg- 
jegyezném, hogy a modulokat és egyéb 
szubrutinokat REM sorokkal igyekeztünk 
tagolt, jól áttekinthető listaképpé ki- 
alakítani. 

I REM XX FŐPROGRAM xx 

29 FORN -1TO28 

30 GOSUB 108: REM 
KÉPCSŐGYÁR 

40 GOSUB 298: REM REGGELI 
RAKTÁR 

50 GOSUB 388: REM 
SZERELŐÜZEM 

60 GOSUB 488: REM ESTI 
RAKTÁR 

70 NEXT: PRINT "BEFEJEZTÜK" : 
STOP § 

100 REM kk: KÉPCSŐGYÁR x:3 

118 IF N — 1 THEN M3 — 609: 
M5 — 8: RETURN 

128 IF M--8 THEN M5 —-— 0: 
GOTO 168 


130 M2 — RND(B): M4 — 
INT(RND(8.2 XR3)): 
M1 — RND(0) 

149 IF M2- —§.5 
THEN M4 — -M4 

158 IF M1- —6.9 THEN M5 — 1: 
M3 — 8: RETURN 

168 M3 — R3-3-M4: RETURN 

290 REM xx XKRAKTÁR 
REGGEL xöx 

210 IF N--1 THEN GOSUB 
600: R2 — R4XR3: RETURN: 
REM SUBR. Y1 

228 R4 — 8: GOSUB 6868: R2 — R3: 
S3 — 8: RETURN 

300 REM 3 XKSZERELŐ- 
MŰHELY xx 

310 IF S3 — d THEN 
S1 — 299--RND(190) 
ELSE S1 — 358 

320 IF S1-—R2 THEN S3 — 8: 
S4 — S43-S1 ELSE S3 — 1: 
S2 — S1-R2: S4 — S4XxR2: 
GOSUB 708: REM SUBR. Y2 

330 RETURN 

480 REM XXRAKTÁR ESTE xx 

410 R1 — R2-SI 

428 IF R1-0 THEN R1 — 8 

430 Y3 — YI134 Y2: Y4 — Y44Y3: 
Y5 — Y4/S4 

440 GOSUB 588: REM 
NYOMTATÁS 

456 IF N — 29 THEN RETURN 

466 IF M5--8 THEN PRINT 
"MA NINCS RENDELÉS? : 
PRINT "HA TOVÁBB MEHET, 
BILLENTYŰZZÖN" ELSE 488 

470 V$ — INKEYS: IF V$ —?" 
THEN 479 ELSE 498 

480 INPUT "RENDELÉS:"; R3: 
R3 — ABS(INT(R3)) 

498 R4 — RI: R1 — 8: RETURN 

500 REM ::XKNYOMTATÁS xx 

505 CLS: PRINT TAB(19)N;?". NAP" 
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518 PRINT "SZÁLL. ELŐTT"; R4; 
TAB(16) "RAKT. KÖLT"; YI 

515 PRINT "SZÁLLÍTÁS"; M3; 
TAB(16) "TEGN. REND"; R3 

520 PRINT "KEZD. ELŐTT"; R2; 
TAB(16) "IGÉNY"; S1 

525 PRINT "KIELÉGÍTVE" ; 

530 IF S3 — 0 THEN PRINT 
"IGEN? ELSE PRINT "NEM"; 
TAB(16) "HIÁNY"; S2: PRINT 
"KIES. KÖLT"; Y2 

535 PRINT "ÖSSZ. TERM"; S4 

540 PRINT "NAPI KÖLT"; Y3 
:TAB(16) "KUM. KÖLT"; Y4: 
PRINT 

545 PRINT "FAJL. KÖLT"; Y5 

550 PRINT "RAKTÁRBAN 
MARADT"; R1: PRINT 

555 RETURN h j 

600 REM xx YI — KÉSZLETEZÉSI 
KÖLTSÉG xx: 

610 IF R4— —400 THEN 
YI — 1008: RETURN ELSE 
YI — 2x(R4—400) -- 1600 

629 RETURN 

700 REM kk Y2 — TERMELÉS- 
KIESÉSI KÖLTSÉG x3 

718 IF 52- —50 THEN Y2 — 

— 34S2XxS2: RETURN 

728 IF 52-—188 THEN Y2 — 
— INT(S2 t 3/16) ELSE 
Y2 — INT(S2 1t 4/1598) 

730 RETURN 

740 END 


A program kipróbálása során a raktáros 
hamar rájön, hogy egy , biztonsági kész- 
letet" kell kialakítania. Az azonban vilá- 
gosan látható, hogy a teljes biztonsághoz 
túl nagy készletre van szükség, azt nem 
érdemes megkövetelni. A játékos-raktár- 
kezelő biztonsága messzemenően kielégíi- 
tő, ha pl. olyan biztonsági szintet talá- 
lunk, amely csak durván minden 39-ik 
futtatásnál vezet termeléskieséshez. 
A valóságos életben természetesen más 
szempontok szerint kellene a biztonságot 
kalkulálni: Ha pl. minden 10. évben egy- 
szer viselek el termeléskiesést, és úgy szá- 
molok, hogy egy évben 260 munkanap 
van, akkor olyan biztonsági szintet kell 
keresnünk, amely csak minden 2600-ik 
esetben jelent kiesést. Ezt természetesen 
próbálgatásokkal nem lehet meghatároz- 
ni, számítani kell. Az ilyen típusú számí- 
tások megértéséhez azonban már komo- 
lyabb matematikai előtanulmányok szük- 
ségeltetnek, ezért itt lezárjuk ezt a témát. 
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Rovatszerkesztő: HEGYI ISTVÁN 


Változatok egy témára 


A játéknak minősített, de ennek ellenére 
jó néhány, matematikailag és programo- 
zástechnikailag rázósabb gondolatot is 
tartalmazó , Készletezz okosan!" című 
tanulmány után, most a kezdőkre vagy 
kevésbé haladókra gondolva egy jóval egy- 
szerűbb és a szó szoros értelmében is , át- 
láthatóbb" témát választottunk. 


Rajzoljunk a képernyőre 


A személyi számítógépek programozásával 
való ismerkedés kezdetén, de sokszor ké- 
sőbb is igen kellemes és ugyanakkor na- 
gyon tanulságos és hasznos lehet különféle 
ábrák, rajzok készítése a képernyőre. 
S nemcsak azért, mert a kívánt ábrát meg- 
rajzoló program elkészítése néha komoly 
fejtörést okoz, hanem azért is, mert pl. egy 
kellő gondossággal és ötletességgel elkészí- 
tett grafikon vagy diagram a mégoly ,,ko- 
moly" számítások eredményeit is szemléle- 
tesebbé, áttekinthetőbbé teszi. 


Pont, pont, egyenes 


A rajzolás alapja egy pont kigyújtása, ki- 
világosítása a képernyőn (esetleg színes 
pont). Erre valamennyi gépen égyrási 
utasítást. Általában a SET (x, y) ill. 
PLOT (x, y) használatos, ahol X, Y a szó- 
ban forgó pont koordinátái. A RESET 
(X, Y) ill. UNPLOT (X, Y) utasításokkal 
kiolthatjuk az adott, már világító pontot. 
Létezik még egy utasítás, helyesebben függ- 
vény (POINT (X, Y)), amelynek segítségé- 
vel megtudhatjuk, hogy egy adott koordi- 
nátájú pont éppen világít-e, vagy sem. 
(POINT (X, Y) értéke I, ha a kérdéses pont 
világít). 

Fejlettebbszemélyi számítógépeken több- 
kevesebb egyéb grafikai utasítás is talál- 
ható (egyenes-, kör-, háromszögrajzolás, 
területfeltöltés stb.). Az egyszerűbb gépe- 
ken a grafikai utasítások sora az előbbi 


hárommal le igzárult. Ha rajzolni akarunk, 
magunkra vagyunk utalva. A következők- 
ben igen egyszerű grafikai feladatokat 
megoldó egyenes- és körrajzoló progra- 
mokat mutatunk be. Az első program, 
amely a TV-Basic 13. adásában is szere- 
pelt, a képernyő két pontját köti össze 
egyenes vonallal, és azt is példázza, hogy 
már az egyenesrajzolásnál is roppant kö- 
rültekintőnek kell lenni. Meg kell vizs- 
gálni, hogy a két pont nem esik egybe 
(320). Netán függőleges (330) vagy víz- 
szintes (340) vonalat eredményez ; mennyire 
meredek (360)? 


309 INPUT "KEZDOPONT" ; XI, YI 

318 INPUT "VEGPONT" ; xX2, Y2 

329 IFXI1-X2ANDY1-Y2THENSET 
(XI, YID: GO TO 598 

330 IF X1-X2 THEN L —8 : GO TO 588 

340 sztsszágtágásáks THEN M-§ : GO TO 
4 

358 M— (Y2—Y1)(X2—Xx1) 

368 IF ABS (M) -— 1 THEN L-1/M: 
GOTO 500 

490 FOR X-XI TO X2 STEP 
SGN(X2—XI1) 

418 Y—-—INT ((X—XI1) x M--Y1--0,5) 

420 SET (X, Y) 

430 NEXT X 

440 GOTO 598 

590 FOR Y-YI TO Y2 STEPSGN 
(Y2—Y1) 

518 X-INT ((Y—Y1) x L-4XI.-0,5) 

526 SET (X, Y) 

530 NEXT Y 

598 STOP 


Körüljárjuk a kört 

Ez most kétszeresen is igaz. Először azért, 
mert a körrajzoló programokban mindig 
nekünk kell gondoskodni arról, hogy a gép 
körbejárja a kört. Ugyanis nem magától 
keresi a körön lévő pontokat, hanem 


a programozónak kell gondoskodnia arról, 
hogy az egyik koordinátaérték adott ha- 
tárok között változzon, a géppel aztán 
minden egyes köordinátához kiszámoltat- 
fuk a párját. Másodszor azért, mert több 
programváltozatot is mutatunk, igyek- 
szünk körbejárni a témát. 

Az első módszer talán a legközismertebb, 
leghagyományosabb. A —R-től --R-ig 
futtatott X koordinátához az iskolában 
tanult köregyenletből számoljuk a másik 
Y koordinátát. (30) 

Szépséghibája, hogy nem egyenletesen 
adja a pontokat, a vízszintes átmérő végeinél 
ritkábban, a függőleges közelében sűrűb- 
ben helyezkednek el a pontok. Ezen pél- 
dául úgy segíthetünk, hogy merőleges 
irányban, az Y koordináta változtatásával 
is felrajzolhatjuk a kört. Ehhez az Y és X 
szerepét a 30. sorban fel kell cserélni. 


18 R— 69 : X8 —129:YO — 80 
29 FOR X — (X6—R) TO (X8-7-R) 
30 YI-SOR 
(R XkR—(X—XO) xx (X—XD)) 
49 Y-YO--YI:SET (X, Y) 
50 Y-YO—Y1:SET(X, Y) 
60 NEXTX 
70 STOP 


Ugyancsak közismertnek számít a körnek 
ún. polárkoordinátás v. paraméteres elő- 
állítása. Itt lényegében az éppen rajzolandó 
ponthoz vezető sugár irányát, szögét vál- 
toztatjuk. 


18 R—58:XB —128:YO— 80 

20 FOR F1-9TO 2 x PI STEP PI/38 
38 X-X03Rx COS (FD 

40 Y-YB-4R XxSIN (FD 

50 SET (X, Y) 

60 NEXT FI 


Mindkét programváltozatban a kör közép- 
pontját és sugarát kell megadni. (Ez törté- 
nik az induló sorokban). 

A harmadik változat elve az előzőektől 
kissé eltérő. Ha a szemléletesség kedvéért 
úgy képzeljük, hogy a kört egy óriási tér 
aszfaltjára kell felfesteni, és mi irányítjuk 
a munkát, akkor az első esetben a kör 
X tengellyel párhuzamos átlóján kell végig- 
haladnunk és attól felfelé, ill. lefelé megje- 
lölni a kiszámított koordinátájú pontokat. 
A második esetben a kör középpontjába 
állva lényegében körbefordulunk és min- 
den egyes irányhoz meghatározzuk a meg- 
felelő körön lévő pontot. Persze, ne feled- 
jük, azt a számítógép természete miatt 
fennálló kötöttséget, hogy egy pont be- 
festésére csak a koordinátának megoldásá- 
val lehet utasítást adni. 

A most következő eljárásnál munka- 
vezetői székhelyünket az éppen befestett 
pontba helyezzük, és azt használjuk ki, hogy 
ha a középpontból a ponthoz vezető 
sugárra merőleges irányban kissé elmoz- 
dulunk, gyakorlatilag még a körön mara- 
dunk. (Az érintő egy darabkájával helyette- 
sítjük a kört.) Az új pontban is ugyanazt 
tesszük, mint előbb: az odavezető sugárra 
merőlegesen lépünk nem túl nagy távolsá- 
got (számítógépeink esetében a sugárnak 
kb. huszada megfelelő már). És így tovább. 
Ha már befestett pontra lépünk, tudjuk, 
hogy körbeértünk, készen vagyunk. Egyéb- 
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ként a befejezés tényét a programban is 
pontosan így tudjuk vizsgálni. 

Nézzük, hogyan végeztethetjük el mind- 
ezt a számítógéppel. A kör megadásához 
itt az előzőktől eltérően a középpont és egy, 
a körön lévő pont megadása szükséges. 
Középpont (Xo ; Yo) 

A kör egy pontja : (xi; y1) 
A soron következő új pont koordinátái 
(x; y) 


Középiskolai geometriai ismereteinket fel- 
használva x-re, y-ra a következő összefüg- 
gés adódik: 


ji 
XxX — xi-t g 01790) 


j 
y—K (x1—x0) 


SZOZEGNNEEEEEZEZ EEEN esti 


A 


mérőautomaták tervezéséhez 
keresünk kellő szakmai 
gyakorlattal rendelkező 


villamosmérnököket. 


Számítógépvezérelt 


A program: 


19 Xg — 199 : YO — 80 

29 X — 189: Y — 129 

30 SET (X, Y) 

40 X-X--B85 k(Y—YDO) 

59 Y—-Y—B OS x (Xx—XxB) 

68 IF POINT (X, Y)—-8 THEN GOTO 
30 

78 STOP 


Mindhárom módszernél fennáll az a ve- 
szély, hogy a kör nem lesz folytonos, ha- 
nem elkülönült pontokból fog állni. (Ez 
a gyengébb grafikai felbontású gépeknél 
nem is túl nagy baj, mert kevésbé zavaró, 
mint a körív helyett megjelenő , lépcső"). 
A lépésköz csökkentése általában javít 
a helyzeten, de akkor nagyon lelassul 
a program. (A harmadik változatnál, ha 
túl kicsit lépünk és ez nem ad a képernyőn 
új pontot, a vége-vizsgálat miatt egy pont 
kirajzolása után leáll a program.) 


A kör , egyenesítése" 


Segít az előbbi gondon, ha pontok helyett 
mindjárt egyenes szakaszokat rajzolunk, 
vagyis az újonnan előállított pontot rögtön 
összekötjük az előzővel. Ehhez a már elké- 
szített egyenesrajzoló programot szubru- 
tinként felhasználhatjuk. Ezt az eljárást 
a második módszerünkre megvalósítva 
kapjuk az alábbi kör és sokszögrajzoló 
program-részletet : 


990 INPUT "KOZEPPONT"; XK, YK 
919 INPUT "SUGAR"; R 
929 INPUT "OLDAL?" ; N 
930 XI-XK --R:YI-YK 
949 FOR FI-9 TO 368 STEP 368/N 
950 F2-—FI xPI/180 
968 X2-INT (XK --R XCOS (F2)) 
970 Y2-INT (YK--R XxSIN(F2)) 
989 GO SUB 328 
990 XI1-X2:Y1-Y2 

1980 NEXT F1i 


A másik két körrajzoló program esetén is 
végrehajtható ez a változtatás. (Vegyük 
észre, hogy a szakaszhúzáshoz külön vál- 
tozókban kell tárolni az utoljára megraj- 
zolt és a soron következő pont koordiná- 
táit.) 

A variánsok száma így tovább gyarap- 
szik, és nyilván továbbiak is léteznek. Ujabb 
feladat lehet a körlap rajzolása, a körvonal 
kitöltése és mondjuk kördiagram készítése. 
Ezekre később visszatérünk. Most csak azt 
kívántuk érzékeltetni, hogy egy viszonylag 
egyszerű problémának is milyen sokfajta 
megközelítése lehetséges. A gyakorlat so- 
rán, az adott feladat igényeinek ismereté- 
ben, a rendelkezésünkre álló géptípus 
tulajdonságainak figyelembevételével kell 
eldöntenünk, hogy mikor melyiket alkal- 
mazzuk. 
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Műhelyforgácsok 


A továbbiakban a Mikro-klubok és szakkörök munkájának segítése, a kö- 
zöttük folyó tapasztalatcsere élénkítése érdekében közreadunk néhányat 
olvasóink ötleteiből, javaslataiból. Mivel.a Mikro-klubokban szép számmal 


akad PRIMO számítógép, bizonyára sokan hasznosíthatják majd Fekete 
Györgynek a komlói Steinmetz Miklós Szakközépiskola tanárának , mű- 
helyforgácsait". 


, Memóriabővítés " 


Ha valaki 16 kbyte szabad RAM-kapaci- 
tást remélt a legkisebb PRIMO-tól, bi- 
zony csalódott. A 6 kbyte képernyő-me- 
mória és az 1 kbyte munkaterület mellett 
csak 9 kbyte-tal rendelkezhetünk szaba- 
don (FRE(X) —9171). 

Ötletem olyankor segíthet, amikor szük- 
ségünk lenne még 4-5 kbyte-ra feladatunk 
megoldásához, ugyanakkor nem tartunk 
igényt a teljes képernyőre (az eredmények 
kijelzéséhez elég például a képernyő alsó 
3-4 sora). Lehetséges ugyanis a RAM 
, átrendezése": a képernyő egy részére 
átvihetjük programunk egyes részeit (fő- 
leg a stringterületet, a stacket, a tömböket, 
de programszöveget is). 

A bővítéshez a munkaterület két címén 
kell változtatni: a képernyő új kezdőcímét 
a 16458-on kell jelezni, a BASIC által 
elérhető terület új határát pedig a 16562-n 
(mindkét esetben csak a felső byte-ot ír- 
juk át). 

Ha a képernyőn csak az alsó négy sort 
vesszük igénybe, a szabad RAM a másfél- 
szeresére növekszik (FRE(X)—13779). 
A bemutató program ezt szemlélteti : 

10 CLS: POKE 16458,122: POKE 
16562,121: CLEAR 50 

20 J—8: K—B: L—8: DIM A(3298) 

30 FOR J—§ TO 3298: 
A(JJ) RND(9999): BEEP 1,1l: NEXT 


( ÖTLET 85 e Augusztus 29. He 


a PRIMO-n 


40 FOR J—O§ TO 2: CLS: PRINTS 1,5, 
"Melyiket kéri (d—3200)" ; : INPUT K : 
PRINTS$ 3,15, A(K);: FOR L—0 
TO 5088: NEXT: NEXT 

50 POKE 16458,194: POKE 16562, 
183: CLEAR 58: CLS 

A 198-es sor végzi a bővítést (a CLEAR 

mellett más érték is lehet a program igé- 

nyei szerint). 29: a valós típusú A nevű 
tömbnek másfélszer akkora dimenziót ad- 
hatunk a bővítés következtében, mint alap- 

állapotban! A 38-as programrész feltölti a 

tömböt értékekkel - a tömb utolsó har- 

mada megjelenik a képernyő letiltott ré- 
szén (ez a működést nem befolyásolja). 

A 49-es sor arra mutat példát, hogy a ki- 

jelzések csak az alsó sorokra korlátozód- 

nak. Vigyázni kell arra, hogy a négy sor 
betelte után töröljük le az információkat! 

Az 5068-es sor visszaállítja a gépet alap- 

állapotba. 

A másik példaprogramban 10080 byte- 
ot biztosítunk stringeknek. 


10 CLS: POKE 16458,122: 
POKE 16562,121: CLEAR 10000 

28 J—8: DIM A$(99) 

30 FOR J—8 TO 99: A$(JJ—MSTRING$ 
(98) 71-32): BEEP J, 18: NEXT 

48 FOR J—8$ TO 99: CLS: PRINT$ 
1,0, A$(J);: BEEP 1,1: NEXT 


58 POKE 16458, 184: POKE 

16562,183: CLEAR 58: CLS 

Most 100 tagú tömbünk lesz, amelynek 
minden eleme 100 karakterből álló szöveg 
- a gép most ennek feldolgozására is ké- 
pes. 

Remélem, a módszer a gyakorlatban is 


beválik. 
ve d t dl] 
belső órája 

A BIT-LET egyik közleményéből (1985. 
február) már sokan tudhatják, hogy a 
PRIMO kvarcvezérelt belső órája a RAM 
munkaterület 16445-, 16446- és 16447-es 
címein hozzáférhető, nullázható, leolvas- 
ható. 

Mérésekkel sikerült kiderítenem, hogy a 
16445-ös címen 1/100 másodpercenként 
változik az érték — a két magasabb címen 
ennek 256-szorosa, illetve 65536-szorosa 
mérhető. 

Megfelelő átszámítással folyamatok, 
műveletek időtartamának mérésére hasz- 
nálhatjuk fel ezt a belső órát. Felhaszná- 
lásra és gondolatébresztőnek közreadok 
egy időmérő programot. 

1 DEFINT A-J: A—16445: B—256: 
C—198: D—6OBO: K —360000 

29 ... (feliratozás, grafika stb.) ... 

38-. . . (adatbevitel) - . : 

40... andítás) : . . 

50 POKE ADO O: REM A belső óra 
beindítása 

60 ... (a mérendő folyamat programo- 
zása) ... 


500 E-—PEEK(A): F—PEEK(A -t1): 
G-—PEEK(A 7-2) 

500 L—ET3FxB3GxBxB: 
H-L/K: L—L—HxK 

528 J-L/D: L—L—JxD: M—-L/C 

530 PRINT USING ,, dt 44 óra dt ikperc 
4-4. déd. mb"; H; J; M 

Néhány kis kiegészítéssel egy szokatla- 

nul működő, de igen pontos stoppert ké- 

szíthetünk : 

29 CLS: POKE A 3-7,128: PRINT$ 
3,14, 
CHR$(2) CHR$(6) "STOPPER" ; : 
PRINTS$ 12,18, "ÁLL" ;: PRINT$ 
140, "T—indul M — megáll"; : 
PRINTS$ 15,6,"X kiírást kér" ; 

40 IF INKEYS$ ( YI", 48 

60 BEEP 29,108: a 
PRINTS$ 12,18, "MÉR"; 

70 P$-INKEYS$: IF P$-"M", 
GOSUB 588: PRINTS$ 12,18, 
PÁLL";: GOTO 48 ELSE IF 
P$-"X", GOSUB 588: GOTO 708 
ELSE 70 

505 BEEP 188,20 

530 PRINTS$ 8,2, USING "i-t Óó 
4. gEJD 3 3E , át ak IND, H, 3. MM; 
540 RETURN 

Az idő folyamatos kijelzését nem tudtam 

megoldani (a szubrutin végtelen ciklusú 
hívogatása megakadályozná az azonnali 
leállást: ez kb. fél mp pontatlansággal is 
járhatna!). Ennek maradéktalan megoldá- 
sa talán sikerül majd más kísérletezőknek. 


Fe ölieten 
- továbbra is . 


Mg 


NI" 


Számítástechnika. — 


BASIC 


a 


Rovatszerkesztő: HEGYI ISTVÁN 


Hatékonyság, optimalizálás, költségcsökkentés. . . 


nap mint nap halljuk, 


olvassuk ezeket a kifejezéseket. Általában gazdasági-politikai értelmezést 


tulajdonítunk nekik, a számítógép-programozástól, matematikától kissé 
távol állónak érezzük őket. Nos, az alábbi tanulmány az ellenkezőjéről 
győz meg. 


A legolcsóbb szállítás- 
szervezés megkeresése 


(1. rész) 


Kezdjük egy mintapéldával: három szénbánya 
napi termelését a következő adatok mutatják : 
A — 100 t, B — 120 t és C — 120 t, együtt- 
véve 340 t. Ezt a szénmennyiséget öt gyárba 
kell elszállítani: K1 — 40 t, K2 — 50 t, K3 — 
70 t, K4 — 90 t és K5 — 90 t, összesen tehát 
ugyancsak 340 t szenet fogadnak be a gyárak. 
(Ez nem véletlen, feladatunk 1. számú meg- 
szorítása, hogy a bányák kibocsátása meg- 
egyezzen a gyárak befogadásával.) A három 
bányából az öt gyárhoz 15-féle útvonal vezet, 
melyeken a szállítás költsége különböző. Eze- 
ket az 1. táblázatban láthatjuk. : 


1. táblázat 
Befogadások : 
KI K2 K3 K4 K5 
kibo- A 4 1 2 6 9 
csátá- B 6 4 3 5 7 
sok: c 5 2 6 4 8 


Ebben a számok az egy tonna szén szállí- 
tására eső mondjuk $ költséget jelentik, amit 
a továbbiakban fajlagos költségnek fogunk 
nevezni. A kérdés: melyik bányából, melyik 
üzembe mennyit szállítsunk, úgy, hogy a szál- 
lítás összköltsége a lehető legkevesebb, azaz 
minimális legyen? 

Az ilyen típusú feladatok a mindennapi gya- 
korlatban sokszor előfordulnak. Megoldásuk 
általában nem egészen egyszerű. Általános 
módszert George Dantzig amerikai matema- 


tikus készített, melyet , szimplex-módszer"- 
nek. szoktunk nevezni. Leegyszerűsített ese- 
tekre - mint amilyen a bemutatott mintapél- 
dánk is - azonban ugyancsak ő közölt egy 
viszonylag egyszerű eljárást, melyet a követ- 
kezőkben bemutatunk és ehhez programot 
készítünk. (A mintafeladat A. Kaufmann: 
Optimális programozás [Műszaki Könyvkiadó 
1968. Bp.] című könyvéből származik.) Dantzig 
ezt a módszert stepping-stone, azaz lépcsőfok 
módszernek nevezte el. 

A megoldáshoz vezető út lépcsőzetes (innen 
az elnevezés) : 

a) Keressünk egy akármilyen lehetséges 
megoldást. Ebből fogunk kiindulni, ezért ezt 
bázismegoldásnak nevezzük. 

b) Keressünk a bázismegoldásban az egyik 
szállítási útvonal helyett egy olyan másikat, 
amelyre ha átirányítjuk a szállítást, akkor csök- 
ken a fuvarozás összköltsége. 

c) Ha létezik ilyen útvonal, akkor ezzel egy 
új bázist kaptunk, tovább d-be. Ha nem léte- 
zik ilyen útvonal, akkor a meglévő bázishoz 
tartozik a legkisebb szállítási összköltség, 
amit kiszámítunk, kijelzünk és vége a fel- 
adatnak. 

d) Az új bázist a régi helyére írjuk és vissza- 
térünk a b-be. 

Az akármilyen lehetséges megoldás meg- 
keresésére szolgál az ún. északnyugati sarok- 
szabály. Miután három bányából öt gyárba 


szállítunk, egy háromsoros, ötoszlopos szám- 
táblázatba, ún. mátrixba írjuk be az akármi- 
lyen lehetséges megoldás számértékeit. Ennek 
a mátrixnak az első sor első oszlopából, azaz 
északnyugati sarkából indulunk el. Az e szál- 
lítás 100 tonnájából az első gyárba 40 tonnát, . 
a második gyárba 50 tonnát, a harmadik gyár- 
ba 10 tonnát szállítunk. Ezzel az első két gyár 
igényét kielégítettük, a harmadiknak azonban 
tartozunk még 60 tonnával, amit a B szállíi- 
tásból elégítünk ki, és ugyaninnen a negyedik 
gyárba még 60 tonnát szállíthatunk. Ide azon- 
ban még kell további 30 tonnát küldenünk, 
amit a C szállításból fedezünk. Az utolsó, ötö- 
dik gyárba épp annyi szén jár, amennyi a C 
szállításból fennmaradt. Ezt a fázismegoldást 
B-vel fogjuk jelölni, és feladatunk második 
megszorítása az lesz, hogy csak háromsoros, 
ötoszlopos bázisokra vonatkozik. A B(i,j) 
kiinduló bázist (i — 1, 2, 3 és j — 1, 2, 3, 4, 5) 
a 2. táblázatban láthatjuk. 


2. táblázat 
Befogadások 
KI K2 K3 K4 KS Összes 
kibo- A 40 50 10 100 
csátá- B 60 60 120 
sok [ej 30 90 120 
Össz. 40 50 70 90 90 340 


Ebben a mátrixban az üres rovatokba zérus 
értendő, a számértékek szállított tonnákat 
jelentenek a kibocsátó helyekről a befogadó 
helyekre. Most, mielőtt tovább mennénk, még 
egy harmadik megszorítást kell tennünk. Ha 
ugyanis az eddigi megszorítások betartásával 
tetszőlegesen adnánk meg a kibocsátások és 
befogadások értékeit, akkor olyan mátrixhoz 
is juthatnánk, melyre a terjedelem érdekében 
erősen leszűkített megoldásunk nem alkal- 
mazható. Ilyen látható pl. a 3. táblázatban, 
melyben csak a befogadások számértékeit 
változtattuk. 


3. táblázat 
Befogadások 
KI K2 K3 K4 KS Összes 
kibo- A 50 50 100 
csátá- B 60 120 
sok c 120 120 
Össz. 50 50 60 60 120 340 
Csak olyan bázismegoldást fogunk tudni 


kezelni, melyben legalább két olyan befogadó 
hely van, mely két különböző kibocsátótól kap 
terméket. Ennek -— mint az a táblázatokból is 
látható — az a feltétele (és ez a harmadik meg- 
szorítás), hogy pontosan nyolc zérus (nulla) 
elem legyen a bázisban. Ha ez nem teljesül, 
módszerünk nem alkalmas a feladat megoldá- 
sára. (De kibővíthető lenne úgy, hogy alkal- 
mas legyen). 

A bázis mátrixon történő javítás érdekében 
jelöljük a fajlagos költségek mátrixát (1. táb- 
lázat) F (i, j)-vel, ahol i — 1, 2, 3 és j — 1, 2, 3, 
4, 5. A meglévő (most még , akármilyen lehet- 
séges") megoldáshoz is tartozik természetesen 
egy szállítási összköltség. Ezt úgy kapjuk meg, 
ha a fajlagos költségmátrix elemeit rendre 
megszorozzuk a bázismátrix elemeivel, majd 
azután valamennyi elemet összeadjuk. Ha az 
F és a B mátrix elemeit szorozzuk, akkor a 4. 
táblázatban álló értékeket kapjuk, és ha vala- 
mennyi elemét összeadjuk, akkor a mátrix 
délnyugati sarkában álló számot, az összkölt- 
séget kapjuk. 
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4. táblázat 
Ki K2 K3 K4 KS Összes 
A 160 50 20 230 
B 180 300 480 
c 120 720 840 


Összes — 160 50 — 200 420 720 


Az üres rovatokba itt is zérus értendő, és a 
számértékek dollárban vannak megadva. 
A szállítási összköltségünk tehát kiinduló 
bázisunk esetében 1550 $. Ezt kellene csök- 
kenteni. A 4. táblázat adatait a továbbiakban 
költségmátrixnak fogjuk nevezni és U(i, j)-vel 
jelöljük, ahol i — 1, 2, 3 és j — I, 2, 3, 4, 5. 


A bázisjavítás módszere a következő: rend- 
re megnézzük a fel nem használt útvonalakat, 
tehát bázisunk zérus elemeit. Megnöveljük pl. 
az első zérus elem, B(1, 4) értékét 1-gyel. Ezt 
csak úgy tehetjük meg, ha kibocsátási és be- 
fogadási adataink nem változnak, emiatt az 
1. sorban valahol még le kell vonni 1-et, és a 
két megváltoztatott elemhez tartozó oszlopok- 
ban is korrigálnunk kell, 1-et hozzáadni ill. 
levonni. Eközben még arra is kell vigyáznunk, 
hogy levonni csak olyan elemből szabad, mely- 
nek értéke nem zérus. Ellenkező esetben nega- 
tívvá válna valamelyik szállítás, aminek ese- 
tünkbén nincsen értelme. Az 5/1 táblázatban 
B(1, 4)-hez és B(2, 3)-hoz 1-et hozzáadunk, 
B(1, 3)-ból és B(2, 4)-ből 1-et kivonunk. Tu- 
lajdonképpen egy , körút"-nak is felfoghat- 
juk ezt az eljárást, mert elindulunk a bázis 
egyik zérus elemétől (ami a körút kezdőpont- 
ja), keresünk a saját sorában egy nem zérus 
elemet, melyből 1-et kivonunk. Ezután körút 
kezdőpontjának oszlopában megkeresünk egy 
olyan nem zérus elemet, mely a körút második 
pontjával azonos sorban van (ilyen nem biz- 
tos, hogy létezik, de ebben az esetben szeren- 
csénk van) és ebből megint 1-et kivonunk, és 
ezzel , bezárult" a kör. A kivonásokat, össze- 
adásokat nem végezzük el, csak kijelöljük. 
A bázis elemeiben megjelenő --1 és -1 szá- 
mokat megszorozzuk a fajlagos költségmát- 
rix, F(i, j) megfelelő elemeivel, és az így kapott 
pozitív ill. negatív számokat összeadjuk. 
B(I, 4) kezdőpont esetében ez: -1Xx2 - 
(19346 4 (3-1)3k 3 3- (-1)k5 — 2. A kapott 
szám neve marginális egységköltség, mely ha 
pozitív, akkor a hozzátartozó változtatás nö- 
veli a szállítási összköltséget, ha negatív, ak- 
kor csökkenti és ha zérus, akkor nem változ- 
tatja. Miután nyolc zérus elem van a bázisban, 
ugyanennyi marginális egységköltség számít- 
ható. Ezeket a D (g) vektor (azaz számsor) 
fogja jelölni, ahol g — 1, 2, ..., 8. Nyilvánvaló, 
hogy nekünk csak a negatív marginális egy- 
ségköltségek fontosak, pontosabban azok kö- 
zül is a legkisebb. Az 5/I, ..., 5/8 táblázatok 
bemutatják a jelenlegi bázisunkhoz tartozó 
körutakat és az azokhoz kapcsolódó margi- 
nális egységköltségeket. Megjegyezzük még, 
. hogy annak érdekében, hogy valamennyi körút 
más legyen mint a többi, az is fontos, hogy a 
körút harmadik eleme (melyhez 1-et hozzá- 
adunk) ugyancsak zérustól eltérő legyen. 
Ha ugyanis ez zérus lenne, akkor egyben egy 
másik körút kezdőpontja is lenne. Megjegyez- 
zük még, hogy ha jól próbálkozunk, akkor 
egyes kezdőpontokból több körút is bejár- 
ható. Ennek azonban az említett megszorítá- 
sok mellett nincs jelentősége. Olyan esetekben, 
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B(1, 4)-hez tartozik : 


D(1)— 42 


B(2, 19-hez tartozik : 


B(3, 2)-höz tartozik : 
KI K2 


50—1 
41 
D(7)—-1 


amikor a körút harmadik elemének sorában, 
és a kezdőponthoz tartozó oszlopban nincsen 
zérustól eltérő elem, át kell térni az addig 
még érintetlen sorba és ekkor hat pontból áll a 
körút. Ilyet látunk pl. az 5/2, 5/6 és az 5/7 
táblázatban. Azt is látjuk, hogy az egyetlen 
negatív, tehát költségcsökkentő marginális 
egységköltség a D(5). (Előfordul, hogy két 


Vegye igénybe 
szolgáltatásainkat! 


Olcsó óradíjért használhat- 
ja 48 K-s Spectrum gépein- 
ket. Szoftvercsere ! 
Folyamatosan indulnak 
BASIC és ASSEMBLER 
tanfolyamok. Eredményes 


angol nyelvoktatás számító - 
géppel! 


Spectrum Terem 

I., Hattyú u. 4. (1 percre 
a Széna tértől) 

Nyitva: 13—19 óráig 
161-305 

szombat, vasárnap is 


B(1, 5)-höz tartozik : 


B(2, 2-höz tartozik : 


egyenlő negatív marginális  egységköltség 
adódik, ilyenkor bizonyíthatóan mindegy, 
hogy melyiket választjuk.) Vizsgáljuk meg, 
hányszor lehetne végrehajtani az 5/5 táblá- 
zatban lévő körutat. Nyilvánvalóan 60-szor, 
mivel ha ennél többször tennénk, a B (2, 4) 
báziselemben negatív érték állna elő, amit 
nem engedünk meg. Ha ezt végrehajtjuk, meg- 
kapjuk az új bázist, amit a 6. táblázat tartal- 
maz. 


6. táblázat 
KI K2 K3 K4 KS Össz.: 
A 40 50 10 100 
B 60 60 120 
6 90 30.120 


Össz. 40 50 70 90 90 340 


Mielőtt ennek javításába kezdenénk, győ- 
ződjünk meg arról, hogy valóban csökkent-e 
az összköltség. Ha a bázis elemeit rendre meg- 
szorozzuk a fajlagos költségek mátrixának 
elemeivel (1. táblázat), akkor a 7. táblázatban 
foglalt mátrixhoz jutunk. 


7. táblázat 
KI K2 K3 K4 KS  Össz.: 
A 160 50 20 230 
B 180 420 — 600 
(e 360 — 240 600 
Össz.: 160 50 — 200 360 660 1430 


Mint látható, az új bázishoz valóban kisebb 
összköltség, 1430 $ tartozik, mint amennyi az 
induló bázishoz tartozott (4. táblázat). 


( Folytatjuk ) 
ADA-WINTER PÉTER 


— Számítástechnika 


11/1 táblázat 


— Az Ötletben 


A 40 50 80 170 
eszzáták , SZEDJE ök Fa 3 B 90 630" 720 
- továbbra is sas M- z 
38 ET ti T zik A T ké: 3; öz nékt Bis ml ! úg ő : 
k8a B" sale kán 190 — 50 — 170 — 360 — 630 — 1400 
xyfj) 
B As Í ; zi 11 j 11/2 táblázat 
] KESS KSE Kö rek4á . KS 
ANP 11] tö ; 
-illtt a A 160 20 80 260 
B 90 630 720 
L c 60 360 420 
160 80 I7T0 — 360 — 630 — 1400 
I 3 7." 5 Aj j A két bázis egyformán 1400 $ szállítási 
4. za v söádélsesásbbbi összköltségre vezet, ami megerősíti egy ko- 
rábbi megjegyzésünket: mindegy, hogy melyi- 
Rovatszerkesztő: HEGYI ISTVÁN ket választjuk. A programot nyilván úgy fog- 


juk készíteni, hogy a legkisebbek közül az 
első marginális egységköltséget, ill. az ehhez 
kapcsolódó bázist tekintjük új bázisnak, ami 
esetünkben a 9. táblázatbeli. Ebben a zérus 
értékű elemek B(1,4), B(1,5), B(2,1), B(2,2), 


A A sa A B(2,4), B(3,2), B(3,3) és B(3,5). Újfent elő- 

ego CSO sza ] as - állítva a hozzájuk tactozó körutakat és az 

azokhoz kapcsolódó marginális egységköltsé- 

4 4 geket, a következő értékekhez jutunk : D(1)—3, 
szervezés megkeresése Era tr sora 
d D(7)—3 és D(8)—1. Ezek közt nem akad 


egyetlen negatív sem, tehát az ezen bázishoz 


(2. rész) kitébéei 


A második, új bázis (1. rész, 6. táblázat) javí- 
tása érdekében ugyanúgy járunk el, ahogyan 
azt az első esetében tettük. Az egyes zérus 
elemeihez tartozó körutakat és az azokhoz 
kapcsolódó marginális egységköltségeket a 8. 
táblázat mutatja be. Ugyanebből látható, hogy 
két, egymással egyenlő marginális egységkölt- 
ség van: D(6) és D(7), mindkettő —I. Ha a 
D(6)-hoz tartozó körút alapján hajtjuk végre 
a bázisjavítást, akkor harmadik bázisként azt 
a mátrixot kapjuk, melyet a 9. táblázatba 


B ( 1.4)-hez tartozik : B (1.5)-höz tartozik 


KI 


írtunk. §. F ik: B (2.2)-höz tartozik : 
9. táblázat CME SZERESE ESZ ZEKZZEZENET SEENETENENENE ETL TT 
KI KÖ TKELTSEMá KE ÉS 
— 50—1 1041 
A 10 50 40 100 - 41 60— 1 
B 30 90 120 
c 30 90 120 
Z 40 50 70 90 90 
B (2,4-hez tartozik : B (3.19-hez tartozik : 
Ha a D(7)-het tartozó körutat vesszük KI 


figyelembe, akkor a harmadik bázist a 10. táb- 
lázat tartalmazza. 


10. táblázat 


KI K2 K3 K4 K5 z 
40 20 40 100 B (3.3)-hoz tartozik : 
B 30 90 120 EBESZ EHE S STATES E S SETSZZ Se Ez 
30 90 120 KI K2 


z 40 50 70 90 90 40 50 


A 9. ill. a 10. táblázatban. foglalt bázist 
alapul véve a költség mátrixot a 11/1 ill. a 
11/2 táblázat mutatja be. 
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tartozó szállítási összköltség, melyet a 11/1 
táblázat tartalmaz, 1400 $ a legkisebb, ami 
az adott kibocsátási ill. befogadási adatok és 
az adott fajlagos költségek mellett elérhető. 

Most érkeztünk el tulajdonképpeni felada- 
tunkhoz: készítsünk programot, amelynek be- 
menő adatai: 

— a kibocsátási kapacitások, 

-— a befogadási kapacitások, 

— a fajlagos szállítási költségek. 

Érvényesítsük ezekre megszorításainkat : 

— a kibocsátási ill. a befogadási kapacitások 
csakis pozitív egész számok lehetnek (más- 
különben az egységgel történő változtatások 
nem mennének), 

- a kibocsátási kapacitások összege egyenlő 
kell hogy legyen a befogadási kapacitások 
összegével, 

— a fajlagos szállítási költségek csak pozitív 
számok lehetnek, 

— a fajlagos szállítási költségek (és a bázi- 
sok) egy háromsoros, ötoszlopos mátrixot 
alkotnak. 

A program szolgáltassa az alábbi kijövő 
adatokat: 

— külön kérésre (opcionálisan) sorszámozot- 
tan az elkészült bázist és a hozzá kapcsolódó 
marginális egységköltség vektort, 

- minden esetben a végén a költség mátri- 
xot és a hozzá tartozó szállítási összköltséget, 

- külön kérésre a bevitt adatokat egyszer 
a bevitelt követően, egyszer pedig az ered- 
mény kiírását követően, 

-a több percet igénybe vevő számítások 
előtt a program kérje a felhasználó türelmét, 

— gondoskodjunk arról, hogy minden ki- 
írásunk a HT-1080Z fél képernyőjén jelenjen 
meg. 

Megjegyezzük, hogy a bázis zérus elemeit 
elegendő az első lehetséges megoldást köve- 
tően ellenőrizni. A program barátságossága 
céljából a bevitt adatok ellenőrzésével együtt 
jelezze a program, hogy ha hibás az adat, 
akkor milyen hibáról van szó. (Pl.: , az adat 
nem pozitív", , az adat nem egész", , a kibo- 
csátó kapacitások összege nem egyenlő a be- 
fogadó kapacitások összegével? stb). Hibás 
adatbevitel esetében a teljes bevitel elejére kell 
visszatérni. A programunkat hat főmodulból 
és további három nyomtató modulból építjük 
fel. Ennek folyamatábráját láthatjuk az 1. áb- 
rán. A főmodulok: 

- , BEVITEL" az adatok bevitelére és ellen- 
őrzésére szolgál; a program figyeli hogy az 
adat pozitív, ill. egész-e és hogy a befogadási 
és kibocsátási összegek egyenlők-e. 

- az , 1. BÁZIS" előállítja az északnyugati 
sarokszabály alapján az első lehetséges bázist 
és kontrollálja a zérus elemek számát. 
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ELOKESZÍTES 


TX :.M(GYA) 


KIB. ÖSSZEG ÉS BEF. 
ÖSSZEG NEM EGYENLO 


- a , MARGINÁLIS" kiszámítja a margi- 
nális egységköltségeket; miután ez a modul 
viszonylag komplikált feladatot old meg, 
ezért ebben a végrehajtást almodulokra bont- 
juk, részletezésükre visszatérünk. 

-— a , MINIMÁLIS" modul kikeresi a leg- 
kisebb marginális egységköltséget és annak 
indexét, melyet a 0O változóba helyez. 

— az , UJ BÁZIS" modul akkor kerül végre- 
hajtásra, ha talált negatív marginális egység- 
költséget a program. 

- a , KÖLTSÉG" modul a szállítási össz- 
költséget számítja ki. 

— az , I. NYOMTATÓ" a bevitt adatokat, 
a ,2. NYOMTATÓ" az éppen kiszámított 
bázist és marginális egységköltségeket, a ,,3. 
NYOMTATÓ" pedig az utolsó bázist és a 
hozzá tartozó szállítási összköltséget nyom- 
tatja ki. 


A , BEVITEL" modulhoz csak annyi meg- 
jegyzésünk van, hogy benne a kibocsátási ka- 
pacitásokat az A(I), I—1, 2, 3, a befogadási 
kapacitásokat a C(J), J— 1, 2, 3, 4, 5 tömbök 
tartalmazzák. A modul folyamatábrája a 2. 
ábrán látható. 


Az , 1. BÁZIS" modulban BI a bázis sor- 
számát jelenti. A blokkokat megszámoztuk 
(méghozzá az utasítások sorszámaival), hogy 
könnyebb legyen magyarázatot adni. A 429- 
430-440 sorszámú blokkokban az I-dik kibo- 
csátó kapacitást osztjuk el az egymást követő 
befogadó kapacitások közt, amíg futja belőle. 
Az X változó tartalmazza az utolsó kiosztás- 
nál a , maradék"? kibocsátó kapacitást. 
A 4508-es blokkban erre tartunk vizsgálatot és 
ha ez éppen kielégíti a J-dik befogadót, akkor 
a megfelelő értékadás után új sorra (kibocsá- 
tóra) és új oszlopra (befogadóra) térünk át. 
Ha nem így van, akkor 4708-ben a J-edik be- 
fogadó az X maradék kapacitást kapja és 
ezzel a J-edik befogadó kapacitásnak is egy 
maradéka képződik, amit Y-nal jelöltünk. Sor- 
index növelés után megvizsgáljuk, hogy a be- 
fogadó kapacitás maradéka a következő ki- 
bocsátó kapacitásnál kisebb-e, vagy éppen 
egyenlő-e vele (490). Ha kisebb akkor a be- 
fogadó kapacitás maradéka kielégíthető az 


TIY-M(G 2) 


FAJL. KÖLTS. 
F(I,3) 


Isedik kibocsátó kapacitásból és ennek újra 
képződik egy X maradéka. Oszlopindex nö- 
velés, azaz új befogadó kapacitásra való át- 
térés következik 4409-ben. Ha a befogadó ka- 
pacitás maradéka egyenlő a következő kibo- 
csátó kapacitással, akkor a kielégítés minden 
újabb maradékképződés nélkül megtörténhet 
és új kibocsátó kapacitásra térünk át 4609-ban. 
Ha viszont a befogadó kapacitás maradéka, 
Y nagyobb, mint a következő kibocsátó kapa- 
citás, akkor ezt felhasználva még mindig kép- 
ződik egy újabb Y befogadó maradék kapa- 
citás. Most ismét új sorra térünk át a 4800-ban. 
Ez esetben nem kell az 1—4 relációt megvizs- 
gálnunk, mivel a dél-keleti mátrix elem fel- 
töltése után a befogadó kapacitások szükség- 
képpen kielégülnek (I. megszorítások). 

Fzután, az 519 blokktól kezdődően meg- 
vizsgáljuk a bázisban a zérus elemeket, szá- 
mukat a OA változóban tároljuk. Mint emlí- 
tettük, a bázisban pontosan nyolc zérus elem- 
nek szabad lennie. Elvben, ha a kibocsátó 
kapacitások összege egyenlő a befogadó kapa- 
citások összegével maximálisan 10 zérus elem 
fordulhat elő (I. első rész 3. táblázatá.).. 

A következő főmodul a , MARGINÁLIS" 
elnevezésű, mely két tömböt állít elő. Az egyik 
a három dimenziós W(I, J, 0), mely az 
egyes körutakhoz tartozó --1 ill. —1 értéke- 
ket tárolja, ahol 1—1, 2, 3 J—1, 2, 3,4, 5 és 
0-1, 2,...,8. Ez a W tömb felfogható nyolc 
darab három soros, öt oszlopos mátrixnak is, 
mi is ilyen értelemben használjuk. Ezeknek és 
az F tömbnek a felhasználásával készíti el 
a főmodul a marginális egység költségeket, 
melyeket a D O vektorban helyez el. Tekin- 
tettel a feladat összetettségére ezt a főmodult 
további almodulokra bontjuk, melyeket a 3. 
ábrán láthatunk. 

- , ELŐKÉSZÍTÉS" almodulban nullázzuk 
a W és a D tömböket, 

- , W" almodulban feltöltjük a tömböt a 
lehetséges körutakkal, 

— , D" almodulban feltöltjük a D vektort a 
kiszámított marginális egység költségekkel. 

Felmerülhet az a kérdés, hogy miért kell 
tárolnunk valamennyi körút adatait, mikor 
azokból úgyis csak egy körutat fogunk hasz- 
nosítani. Aki figyelmesen nyomon követte el- 
járásunkat, észrevehette, hogy a szükséges kör- 
utat csakis akkor tudjuk kiválasztani, ha meg- 
találtuk a legkisebb marginális egység költsé- 
get. Más szóval, a megfelelő W tömbrészt majd 
csak az új bázis képzésénél tudjuk hasznosí- 
tani, addig tárolnunk szükséges. 

A felsorolt almoduloknak, ill. a hátralevő 
főmoduloknak az ismertetésére cikkünk kö- 
vetkező folytatásában kerül sor. 

ADA-WINTER PÉTER 
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Rovatszerkesztő: HEGYI ISTVÁN 


A legolcsóbb szállítás- 
szervezés megkeresése 


(3. rész) 


A , MARGINÁLIS" főmodul első almodulja, 
az , ELŐKÉSZÍTÉS" nagyon egyszerű, szer- 
kezete az 5. ábrán látható. Az M tömb a bázis 
zérus elemeinek indexeit tárolja. 

A második almodul, a , W" magyarázatot 
igényel, ezért vizsgáljuk meg részletesebben 
(6. ábra). O értékét, melyet egy, az almodulon 
kívüli ciklus szabályoz tekintsük most kons- 
tansnak és a W tömbnek csak egy 3 soros, 
5 oszlopos mátrixát vegyük figyelembe. Mint 
említettük, IX és IY a körút kezdőpontjának 
indexei. A körút többi pontjának azt nevez- 
zük, melybe a --1 ill. -1 értékeket kell be- 
rakni. Már láttuk, hogy a körutak lehetnek 
négy, vagy hatpontosak (és hogy pont csak 
ilyenek lehetnek, annak a mondott megszorí- 
tások az okai). A körút kezdőpontjából kiin- 
dulva megkeressük a vele azonos, ún. kezdő- 
sorban lévő olyan nem zérus báziselemet, 


M(a Az2) - 3 
GARAT 1 


melyhez tartozó oszlopban is található zérus- 
tól eltérő báziselem. Nevezzük ezt primér 
oszlopnak, melynek indexét a K azonosító 
fogja tartalmazni. A primér oszlopban tehát 


ő 312 
W(Ix,IY.a):1 
K:4:K4A151 


i I4:3 . 


W(IXIK,8)-4 


két nem zérus elem van, az egyik a kezdősor- 
ban, a másik meghatároz egy sort, melyet 
primér sornak fogunk nevezni. Ha a primér 
sor és a kezdőoszlop metszésében nem zérus 
báziselem található, akkor a körút befejező- 
dik. Ha viszont ezen a helyen a bázisnak zérus 
eleme áll, akkor a primér sorban keresnünk 
kell még egy nullától eltérő olyan báziselemet, 
melynek oszlopában és a harmadik, eddig fel 
nem használt sorban is nem zérus báziselem 
áll. Ezt az új oszlopot szekundernek nevez- 
zük, indexét a KI azonosító fogja tartalmazni. 
Az új sort, melyre rátértünk szekunder sor- 
nak mondjuk, melynek kezdőoszlopában szük- 
ségképpen megtalálható a körút hatodik, nem 
zérus báziseleme. Mindezek szemléltetésére 
szolgál a 7. ábra. Az almodul 8600-ban értéket 
ad a körutat tartalmazó W mátrix kezdő- 
pontjának és induló értékeket ad a primér és 
szekunder oszlopok indexeinek. Miután az 
IX72 reláció teljesülése esetében mindig el- 
kerülhető a szekunder elemek keresése, ezért 
először is erre tartunk vizsgálatot (820). 
Tegyük fel először, hogy IX—1, ekkor a 830- 
ban egy kétbemenetű szubrutinhívás követ- 
kezik, az első bemeneténél. Az IPOD című 
szubrutin (W1 elnevezéssel) keres a kezdő- 
sorban egy akármilyen nem zérus báziselemet 
és ha talál visszatér az almodulba. Ezt követi 
egy , önkényes" értékadás II és I2 értékekre, 
melyek rendre a primér és a szekunder sorok 
indexeit jelentik. (Ha ez az értékadás nem 
megfelelő, akkor csakis a felcserélésük lehet 
megfelelő!). 8490-ben vizsgálatot tartunk arra, 
hogy a K-dik oszlopban van-e a bázisnak 
nem zérus eleme az II ill. az I2 sorban. Ha 
nincs, akkor a kezdősorban újabb nem zérus 
elemet keresünk a W1 szubrutin (2-es belépési 
pont) segítségével. Ha az II, vagy I2 sorban 


. 6. ábra 


W(I4,K.R): 4 
ád 
ab 234 
78 

I 1 TYO)-A 
kelésésébe éa] w (T 4, KAJA) 
(er) Ww(r2K4a)-1 
wW(zz TYa)--4 


ey 
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találunk nem zérus báziselemet, akkor K való- 
ban a primer oszlop indexét tartalmazza. Ha a 
zérustól eltérő báziselem az I2-dik sorban 
van, akkor II és I2 értéket cserélnek, hogy 
mindenképpen az II legyen a primér sor in- 
dexe. Ezután 8700-ben a körút második és har- 
madik pontja kap értéket, majd vizsgálatot 
tartunk, hogy a primer sor kezdőoszlopában 
álló báziselem zérus-e. Ha igen, akkor a körút 
négypontos és az utolsó pont értéket kap. 
Ha nem, akkor szekunder oszlopot kell ke- 
resnünk 880-tól, ügyelve arra, hogy ez ne 
lehessen a primer oszlopindexszel azonos ér- 
tékű. A 890. vizsgálat eredményeképpen rög- 
zül KI! értéke. Ha a szekunder oszlop indexe 
megvan, több vizsgálatra nincs szükség, a 
körút valamennyi pontja meghatározottá vált 
(aminek okai a megszorítások !), értékadások 
következnek. Ha IX—3, akkor az II és I2 
önkényes értékadásától eltekintve, ugyanez 
a folyamat zajlik le. Ha IX—2, akkor csak a 
primér sor indexére kell értéket adni, melyet 
önkényesen 1—1 utasítással kezdünk (910) 
és ha nem megfelelő, akkor 1—3-ra módosí- 
tunk. Ezután értéket kap a kezdőoszlop pri- 
mér sorában lévő elem. Ezt követi a primér 
oszlop keresése a W1 szubrutinnal (1-es be- 
lépési pont) és ha a 930. vizsgálat szerint a 
primér sorban és K-dik oszlopban lévő bázis- 
elem nem zérus, akkor K a primér oszlop 
indexe és a körút további két pontja meghatá- 
rozottá válik, következhet az értékadás. 


A harmadik almodul a ,,D"? nevű, mely 
minden egyes OC érték mellett kinullázza az 
U mátrixot, melyet itt munkamátrixnak hasz- 
nálunk, majd a U minden egyes elemébe el- 
helyezi W(I, J, 0) k F(I, J) szorzatot, a cik- 
lusban rendre növekedő I és J indexek mellett. 
Ezután még mindig e ciklusokon belül vala- 
mennyi elemet összeadja és D(O)-ba gyűjti. 
Mivel W (I, J, 0) elemei, a körút pontjaitól 
eltekintve zérusok, csak a fajlagos egység- 
költségek pozitív ill. negatív értékei összege- 
ződnek, kiadva így a marginális egység költ- 
ségeit. Folyamatábrát a 8. ábrán láthatunk. 
Ezzel a , MARGINÁLIS" főmodul almodul- 
jait lezártuk. 


A , MINIMÁLIS" főmodul kezdetén a 
088-1 és OD— D (1) értékadásokkal OD 
felveszi a marginális egységköltség vektor első 
elemének értékét, OO pedig ugyanennek 
indexét. A főmodul ezután egyszerű módon 
rögzíti a legkisebb marginális egységköltséget 
(ha több legkisebb lenne, úgy az első sorra- 
kerülőt) és annak indexét (9. ábra). 

Az , ÚJ BÁZIS" főmodul csakis akkor ke- 
rül végrehajtásra, ha van negatív marginális 
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8. ábra 


K: Ő AND B(I,3) 
AND 
C 2Ó AN V/(T2.A9) 


egységköltség, azaz ha nincs, akkor az előző 
ciklusban készült bázis lesz a szállítási terv. 
Ennek a főmodulnak a szerkezetét a 10. ábrán 
látjuk. Az első ciklus előtt beállítjuk B1-et, 
a bázis sorszámát, majd a ciklusban megke- 
ressük azt a báziselemet, melyet a körút vala- 
mennyi báziseleméből ki lehet vonni anélkül, 
hogy valamelyik báziselem negatívvá válna. 
A ciklus első menetében, amikor K—0 igaz, 
az S munkarekesz felveszi a bal felső körút 
elem értékét és ettől kezdve K—1 lesz igaz. 
A további ciklus menetekben megkeresi azt 
a körút elemet, amely negatív W tömbelem- 
hez tartozik és a körút báziselemei közt a leg- 
kisebb. Ennek értékét veszi fel az S munka- 


M(I,3):B(L JxF(I,3) 
S-Sr4r úu(I,3) 


10. ábra 11. ábra 


rekesz. A főmodul második részében azután a 
körút báziselemeihez §-et hozzáadjuk, ha a 
megfelelő W körútelem pozitív és kivonjuk, 
ha ez negatív. 

Végül a , KÖLTSÉG" főmodul kö vetkezik, 
mely eléggé egyszerű, a 11. ábrán látható fo- 
lyamatábrából közvetlenül megérthető. 


A három nyomtató modult nem ábrázol- 
juk, azok közvetlenül a programból is meg- 
érthetők lesznek. 


A HT 1080Z gépre írt BASIC programot 
a következő számban közöljük. 
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Rovatszerkesztő: HEGYI ISTVÁN 


A legolcsóbb szállítás- 


szervezés megkeresése 


(4. rész) 


REM SZÁLLÍTÁSI FELADAT, FŐ- 
PROGRAM 


CLS: PRINT SZOVSZÁLLÍTÁSI 
FELADAT": FOR 1I—1 TO 888: 
NEXT: CLS 

DIM F(3,5), B(3,5) , M(8,2) , W(3,5,8) , 
U(3,5) 

GOSUB 288: REM BEVITEL 
GOSUB 178 


IF V$—"1I" THEN GOSUB 1999: 
REM 1. NYOMTATÁS 

GOSUB 409: REM 1. BÁZIS — 
GOSUB 608: REM MARGINÁLIS 
PRINT "BÁZIST KIÍRJUK? 
(I/EGYÉB)" : GOSUB 188 

IF V$—"1" THEN GOSUB 2000: 
REM 2. NYOMTATÁS :; 
GOSUB 1208: REM MINIMÁLIS 
IF X(OOXO THEN GOSUB 1309: 
GOTO 88: REM ÚJ BÁZIS 
GOSUB 1588: REM KÖLTSÉG 
GOSUB 1888: GOSUB 178: REM 
3. NYOMTATÁS 

IF V$—"I" THEN GOSUB 1998: 
GOTO 148: REM I. NYOMTATÁS 
STOP 

PRINT "BEVITT ADATOKAT 
KIÍRJUK ? (I/EGYÉB)" 
V$-INKEYS$: IF V$—" " THEN 189 
ELSE RETURN 

REM 

REM x BEVITEL x 

S$1—8: 52—8: FOR 1—1 TO 3 
PRINT I;:INPUT". KIBOCSÁTÓ :"; 
Ar) 


230 
249 
250 


260 


1 270 


280 
290 


300 


310 
328 


330 


A megelőző számokban ismertetett eljárás programja HT1OB8BOZ iskolaszámítógépre 
a következő 


(Átírása más géptípusra, nem okoz különösebb nehézséget. Várjuk az ezzel kapcsolatos 
tapasztalatokat — A szerkesztő.) 


IF A(1X—0 THEN 350 

IF A(IX )INT(A(1)) THEN 360 
S1—S1 -- A(D: NEXT I: FOR 
J—-ITOS5 

PRINT J;::INPUT". BEFOGADÓ" :; 
C(J) 

IF C(J))—B THEN 3508 

IF C(JX )INT(C(J)) THEN 360 
S2—$S2-4-C(J): NEXT J 

IF SIX )52 THEN PRINT 
"KIBOCSÁTÁSOK KAPACITÁS- 
ÖSSZEGE": PRINT "NEM 
EGYENLŐ A BEFOGADÓK É 
KAPACITÁS": PRINT "ÖSSZEGÉ- 
VEL": GOTO 218 


FOR I-1 TO 3: FORJ—1 TO 5 
PRINT I;",";J;:INPUT" FAJL: 
KÖLTSÉG :" ;F(I.J) 

IF F (I,J))ő THEN PRINT 
"ADAT NEGATÍV": GOTO 320 
NEXT J,I: RETURN 

PRINT "ADATOK NEM 
POZITÍVOK" : GOTO 219 
PRINT "ADATOK NEM 
EGÉSZEK": GOTO 219 

REM 


REM x 1. BÁZIS x 

CLS: PRINT "KIS TÜRELMET 
KÉREK" 

Iss1:Jod:Bíizi 

X—-A() 


IF X)CXJ) THEN B(I,JJ—C(J): 
X-X— C(J) ELSE 468 
J—J34 1: GOTO 449 


919 
920 
938 
948 
958 


968 


IF X—C(J) THEN B(I,JJ—C(J) 

ELSE 488 

1—-1--1: IF 1—4 THEN 528 ELSE 
J—J--1: GOTO 438 

B(I,J)—X: Y—C(JJ—X 

I-—1--1: IF Y(A(D THEN B(I,J) - 

Y: X—A(D—Y: GOTO 459 

ező a THEN B(I, JJ Y: GOTO 
47 

B(I,JJ)—A(D: YMY—AK(1) : GOTO 498 


04A—I: FOR I—1 TO 3: FOR J—1 
T05 

IF B(I,J)—- THEN 0A—0OA--1 
NEXT J,I 


IF 0A—9 THEN RETURN 

CLS: PRINT "A BÁZISBAN TÚL 

SOK A ZÉRUS ELEM": RUN 38 

REM . 

REM xx MARGINÁLIS xx — 

GOSUB 788: REM ELŐKÉSZÍTÉS 

FOR 0—1 TO 8: IX—M(O,1): 

IY—M-(O,2) 

GOSUB 888: REM W 

FELTÖLTÉSE 

GOSUB 1048: REM D 

ELŐÁLLÍTÁSA 

NEXT O: RETURN 

REM fi ; 

REM :3- ELŐKÉSZÍTÉS ir 

0A—1I: FOR 1-1 TO 3: FOR 
-1TOS5 

IF B(I,J)—8 THEN M(OA,1)—I: 

M (OA,2)—J: 0 A—OAT-1 

NEXT J,I 

FOR 0-1 TO 8: D 0—0 

FOR I—1 TO 3: FOR J—1 TO 5: 

W(I,J,0)—B: NEXT J,I 

NEXT O: RETURN 

REM 

REM át W FELTÖLTÉSE ir 

WUXIY,0)— 1: K—1: K1—1 

IF IX—2 THEN 9108 

GOSUB 1008 : IF IX—1I THEN 

I1—2:12—3 ELSE II—1: 12—2 

IF B(II,KX)Ó THEN 878 

IF B(I2,K) B THEN 13—II: 

I1—12: 12—13: GOTO 878 

GOSUB 1829: GOTO 849 


WC ,K,0)——1: Wa ,K,0)— 1: 
IF B(IIL,IYX)Ő THEN W 
(11, TY,0)—— 1: RETURN 


IF K1—K THEN 980 

IF B(II,K1X dő THEN W 
(II,K1,0)—— 1: W(I2,K1,0)—1: 
W(I2IY,0)——I: RETURN 
K1—K1--1: GOTO 880 

I1—1: IF B(II,Y)—O THEN 11—3 


W(II,Y,0)——1: GOSUB 1099 
IF B(II,KX ő THEN 950 
GOSUB 10829 

WUIX .K,0)—— 1: W(II,K,O)— 1: 
RETURN 

REM 


1000 REM 4- WI SZUBRUTIN it 
1018 IF BUX,KX )ő THEN RETURN 
1928 K—K 4-1: GOTO 1918 

1938 REM 

1040 REM 3£- D FELTÖLTÉSE 3 
1050 FOR I—-1 TO 3: FOR J—1 TO 5: 


U(I,J)—8: NEXT J,I 


1060 FOR 1—1 TO 3: FORJ—1 TO 5 
1978 U(I,J)— W(I,J,O) xx F(I,J) 

1988 D(O)—D(A)--U(I,J) 

1098 NEXT J,I: RETURN 

1100 REM Z 

1200 REM xx MINIMÁLIS 3 

1218 00—1: 0D—D(1) 

1228 FOR 0—2 TO 8 

1238 IF OD)D(O) THEN OD — D(0): 


008—- 
1240 NEXT O: RETURN 
1258 REM. 
1300 REM x ÚJ BÁZIS x 


(( ÖTLET 85 e Szeptember 26. ) 


1310 CLS: PRINT "KIS TÜRELMET 
KÉREK" 


1320 K—8B: BI-B1--1: S--B 
1330 FOR I—-h1 TO 3: FORJ—1 TO 5 
1340 IF W(I,J,00)—B THEN 1378 


1350 IF K—O AND B(I,JX )ő AND 
W(I,J.0OXO THEN S-B(I,J): 
K—1: GOTO 13708 


1360 IF B(IJJXS AND B(I,JX )8 AND 
WdC,J,OOXO THEN S$-B (I,J) 


1378 NEXT JI 

1380 FOR 1—1 TO 3:FORJ—1 TO 5 

1399 IF W(I,J,00)—B THEN 1418 

1400 TF W(I,J,0O))O THEN B(I,J)— 
B(I,J)-S ELSE B(I,J)—B(I,JJ—S 

1410 NEXT JI: RETURN 

1420 REM 

1500 REM x KÖLTSÉG x 

1519 §—O8 

1529 FOR 1—-h1 TO 3: FORJ—1 TO 5 

1530 U(I,J)—B(I,J)x F(I,J) 

1549 S—S--U(I,J) 

1550 NEXT JI: RETURN 

1560 REM 

1808 REM xx 3. NYOMTATÁS x 


1810 CLS: PRINT "KÖLTSÉG 
MÁTRIX:": PRINT: PRINT 


FORI-—-1TO3 

PRINT U(I,1); TAB(6)UK(1,2) ; 
TAB(12)U(I,3); TAB(18)UK(I,4) ; 
TAB(24)UK(I,5) 


NEXT: PRINT: PRINT 


PRINT "MINIMÁLIS 
ÖSSZKÖLTSÉG :";§ 


PRINT "VÉGE": RETURN 

REM 

REM x 1. NYOMTATÁS x 

CLS: PRINT "KIBOCSÁTÁSOK :" ; 
A(1); AD); A(3); 

PRINT "BEFOGADÁSOK :"; 

C(1); C(2); C(3); C(4); C(5) 


1820 
1830 


1849 
1850 


1860 
1878 
1990 
1910 


1920 


Az Általános Vállalkozási Bank Rt. a 
METRIMPEX Külkereskedelmi Vállalat 
és a Számalk szerződése lehetővé teszi, 
hogy az eddigiektől eltérő konstrukcióban 
a vállalatok kiépítsék, fejlesszék vagy le- 
cseréljék eddigi számítógépes rendszerüket. 
A Számalk szeptembertől megkezdte a 
szocialista import számítástechnikai rend- 
szerek komplex lízingjét. A jelenlegi gazda- 
sági helyzetben ez egy újfajta lehetőség a 
vállalatoknak, hogy több éves részletek- 
ben, költségből fedezhetően beszerezzenek 
számítógépes rendszereket. 


A Számalk a bérletezésre sokfajta gép- 
típust bevont, ezzel mód nyílik a már meg- 
lévő gépek, rendszerek kiegészítésére, to- 
vábbfejlesztésére. A bérbe vett gépeket, 
eszközöket a bérleti idő leteltével 3-5 év 
múlva jelképes összegért a valóságos érték 
1"/5ráért megvásárolhatják a bérlők. 


A Számalk vállalja, hogy a berendezése- 
ket 


e üzembe helyezi 


e az új gép fogadására a szakembereket 
kiképzi 


e alkatrészt biztosít 


ÖTLET 85 e Szeptember 26. 


1938 PRINT: PRINT: PRINT § 
"FAJLAGOS KÖLTSÉGMÁTRIX:": 
PRINT 

1940 FOR 1—1 TO 3: PRINT K(I,1); 
TAB(6)F(I,2); TAB(I2)F(I,3); TAB 
(18)F(I,4); TAB(29)F(I,5) 

1959 NEXT I: PRINT: PRINT 

196 PRINT "HA TOVÁBB, 
BILLENTYŰZZÖN" 

1979 V$—INKEYS: IF V$—" " THEN 
1978 ELSE RETURN 

1988 REM 

2000 REM x 2. NYOMTATÁS x 

2010 CLS: PRINT TAB(6)BI ;". BÁZIS 
MEGOLDÁS": PRINT: PRINT 

2920 PRINT TAB(4)"K1"; TAB(10) 

"K2"; TAB(16)"K3"; TAB(22) 
"K4"; TAB(28) "K5": PRINT 

2830 DATA A, B.C 

2049 FOR 1—1 TO 3: READ V$ 

2050 PRINT V$; TAB (3) B (I,1); TAB (9) 
B (I,2); TAB (15) B (I,3); TAB (21) 
B (I,4); TAB (27) B(I,5) 

2068 NEXT: RESTORE: PRINT: PRINT 

2978 PRINT "MARGINÁLIS EGYSÉG 
KÖLTSÉGEK :" 

2980 FOR 0I—-!I TO 4: PRINT "D("; 
RIGHTS (STR$ (OD,1)—";: 
NEXT OI: PRINT 

2999 FOR 01-—5 TO 8: PRINT 
RIGHTS (STR$(OLI,1); 99—7;: 
NEXT OI: PRINT 

2109 PRINT "HA TOVÁBB, 
TYŰZZÖN" 

2110 V$—-INKEYS: IF V$— 
ELSE RETURN 


"De . 
, 


BILLEN- 


"s THEN 2118 


Programunkhoz két technikai jellegű megjegy- 
zést fűzünk : 


- Az 560. utasításban egy szubrutin belse- 
jéből RUN 306-al térünk vissza a program ele- 
jére. Ez az egyetlen lehetőség arra, hogy a 
szubrutinból korrekt módon kiugorjunk, mert 


e a folyamatos feldolgozáshoz háttér- 
gépet biztosít 

e a perifériákkal a kommunikációt meg- 
teremti 

e a gépekre, 
garanciát adnak 


e 1985-ös szállítási határidő 


A feltételeket a vevő igényeihez rugal- 
masan alkalmazkodva alakítják ki. Rö- 
videbb lejárati idő kedvezőbb fizetési fel- 
tételeket teremt, a hosszú futamidő esetén 
a költségek megnövekednek. A bérleti díj 
mindig évente jár vagy negyedévenként 
előre, az előírt feltételek szerint. 


berendezésekre egyéves 


Lízingdíj: 
3 éves időtartam alatt a bruttó érték 


1559/4-a éves törlesztés esetén vagy 1709/-a 
negyedéves törlesztés esetén. 


4 éves időtartam alatt a bruttó érték 
17594-a éves törlesztés esetén vagy 1909/-a 
negyedéves törlesztés esetén. 


5 éves időtartam alatt a bruttó érték 
1959/4-a éves törlesztés esetén vagy 21094-a 
negyedéves törlesztés esetén. 


ilyen esetben az összes programváltozó tar- 
talma törlődik, beleértve azt is, amelyik tá- 
rolta, hogy hová kellett volna a szubrutinból 
a hívóprogramba visszatérnie a vezérlésnek. 
Ügyelni kell a RUN-nal való visszatérés esetén 
arra is, hogy a DIM utasítások újra végre- 
hajtásra kerüljenek. 


- A 2988 és 2998 sorszámú utasításokban a 
RIGHTS (STR$ (O1),1) alak azért szerepel, 
hogy előjel pozíció nélküli, karakter alakú 
számjegy álljon ott, valódi, numerikus típusú 
számok helyett. Így lehetett elérni, hogy a 
"DC" és ")—" stringek közt szóköz nélkül 
jelenjen meg az index, a OI számértéke. 


Néhány gondolat befejezésül: Bár ez a 
módszer a gyakorlatban így nem használatos, 
érdemes volt egyszer bemutatni. Egyrésztazért, 
mert láttunk egy olyan - inkább számtani, mint 
matematikai - eljárást, amit a középiskolákból 
nem ismerhetünk.. Megtapasztaltuk, hogy 
miként lehet mátrixokkal manipulálni, anél- 
kül, hogy megtanítottuk volna a mátrix fogal- 
mát és műveleti szabályait. Megismertünk 
egy , elemi" módszert egy sokféleképpen meg- 
oldható feladat részünkre legjobb megoldásá- 
nak megkeresésére. 


Az ilyen típusú feladatok megoldásának bo- 
nyolultabb formái a számítástechnikai gyakor- 
latban nagyon elterjedtek, gyakran alkalmaz- 
zák őket. Általában optimalizációs módsze- 
reknek szoktuk nevezni ezeket, mivel mindig 
valamilyen feladatnak, valamilyen szempont- 
ból részünkre a legjobb (legnagyobb vagy leg- 
kisebb) megoldását szolgáltatják. Optimalizá- 
ciós feladatokat nem csak a szállítási terüle- 
ten, hanem sok egyéb témakörben is alkal- 
maznak. Így pl. a leggazdaságosabb takarmá- 
nyozás, a legkevesebb selejttel járó anyagki- 
szabás, .a legmagasabb nyereséggel történő 
vállalati gazdálkodás stb. megkeresésénél. Re- 
méljük, hogy a bemutatott elemi módszerekkel 
elvégzett optimalizációs feladat megoldása 
nyomán fogalmat tudnak alkotni arról, hogy 
mi az optimalizálás lényege. 


ADA-WINTER PÉTER 


Előnyei: 


e komplex eszköz-, és szoftvér szolgál- 
tatás 

e a bérleti díj költségből fedezhető 

e felhalmozási adót 18,594, vagyonadót 
394 nem kell fizetni 


e alacsony indulási költséggel nagy ér- 
tékű berendezéshez juthatnak 

e kedvező kölcsönfeltételek 

e a szolgáltatások bármelyike a lízingbe 
bevonható 

e lejárati idő megállapodás szerint vál- 
tozhat 3-5 év között 

ea gépek, rendszerek továbbfejleszthe- 
tők 


e előszerződés köthető, így az átfutási 
idő lerövidül. 
Hátrányai: 

e a lízingfeltételek csak az 1985-ben 
kötött feltételekre érvényesek 

ea lízingbe vevőnél amortizáció nem 
képződik 

e szigorúbb üzemeltetési és szerződési 
feltételek 

e hosszú futamidő esetén a költségek 
megnövekednek. 


.- Az Ötletben 
- továbbra is 
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. Számítástechnika 


Rovatszerkesztő: HEGYI ISTVÁN 


Programváltozatok egy témára I. 


Cikksorozatunk első feladataival a billentyű- 
zet és a képernyő kezelésének megismeréséhez 
szeretnénk segítséget adni. Ami gondot okoz 
az az, hogy ebben különböznek a személyi 
számítógépek leginkább egymástól. Külön- 
külön minden géptípust meg kell ismerni. 
Mi a Commodore 64 és a HT I1080Z később 
a Sinclar Spectrum ill. a Commodore 16 
személyi számítógépeken fogjuk megoldani a 
feladatokat, ezeken írjuk meg a programokat. 
Egy kicsit azért reménykedünk abban, hogy 
más géptípusok tulajdonosainak is tudunk 
a cikksorozat elején is ötletet adni, a későbbiek 
során pedig segíteni a BASIC-nyelvű progra- 
mozás elsajátításában. Igyekszünk majd minél 
általánosabban megírni a programokat. 

Mielőtt hozzákezdenénk első feladatunk 
megoldásához, egy-két dolgot tisztáznunk 
kell, hogy elkerüljük a félreértéseket. 

e Számítógép és önálló munka nélkül nem 
lehet megtanulni programozni. (Az utóbbi 
mindenképpen szükséges, gép nélkül pedig 
- még ha sikeres is a tanulás - nem nagy 
öröm programokat írni.) 

e Egy feladat többféle megközelítése, meg- 
oldása nem öncélú tevékenység. Programozás- 
kor, egy feladat megoldásakor az történik, 
hogy több lehetséges megoldás közül kell 
választanunk, és lehetőleg a legjobbat. Álta- 
lában csak gondolatban futunk végig a meg- 
oldásokon, és úgy választunk. Mivel most, 
amikor elkezdjük az ismerkedést a BASIC- 
nyelvvel, és meg szeretnénk tanulni progra- 
mozni, kidolgozzuk az összes - legalábbis 
jó néhány - ötletet. 

e A programok mellé csak a feladat meg- 
értéséhez, a továbbhaladáshoz szükséges leg- 
fontosabb megjegyzéseket, magyarázatokat 
írjuk. Inkább útmutatásnak szánjuk. Mi az 
aminek utána kell nézni a gépkönyvekben 
vagy a BASIC-utasításokat ismertető kézi- 
könyvekben. 

Néhány javaslat a programozás tanulásá- 
hoz: 

e Próbáljuk meg önállóan megoldani a fel- 
adatot! Miután megértettük, bontsuk fel 
részfeladatokra, és oldjuk meg azokat! 

e Összetett — feladatokat  egyszerűsítsük. 
Oldjuk meg egy speciális esetre a problémát, 
utána általánosítsuk a megoldást! 


e Írjunk kis programokat egy-egy részfeladat 
kipróbálásához! 

6 Értelmezzünk kész programokat! 

e Módosítsunk, javítsunk a kész progra- 
mokon! Alakítsuk át saját ízlésünknek, igé- 
nyeinknek megfelelően! 

e Próbáljuk meg a feladatot más módon is 
megoldani! 

e Gépeljük be a kész programokat és pró- 
báljuk ki azokat! 

e Készítsünk a megoldott feladathoz ha- 
sonló feladatokat! 


e Gondoljuk végig, milyen feladatok meg- 
oldásához használhatnánk fel a tanultakat! 


e Próbálkozzunk, kísérletezzünk! 


A komolyabb elmélyedést 
igénylő szállítási probléma 
tárgyalása után most ismét 
azokra gondolunk, akik mos- 
tanában jutottak számítógép- 
hez vagy nemrég kaptak ked- 
vet a géppel való foglalko- 
záshoz. 

Mivel a BASIC-nyelvvel fog- 
lalkozó könyvek immár szép 
számmal kaphatók, és a gép- 
típusok jó részéhez van hoz- 
záférhető magyar nyelvű ke- 
zelési utasítás, mi most gya- 
korlatibb — apróbb feladatok, 
problémák megoldásához, 
elemzéséhez kapcsolódó - is- 
merkedést kínálunk a kedves 
Olvasónak. A. I. 


Az első feladatunk legyen a következő: 
Írjuk ki a BASIC szót, bekeretezve, a kép- 
ernyő közepére! A megoldáshoz csak a bil- 
lentyűzetet kell ismernünk. Azt kell tudnunk, 
hogy melyik billentyű lenyomására törlődik 


$k EASIZ 


a képernyő (C 64: CLR; HT: CLEAR), és a 
kurzort melyik billentyűvel lehet odavinni, 
ahová írni akarunk (C 64: CRSR billentyűk ; 
HT: 4; — billentyűk; mindkettőnél: SPACE/ 
betűköz billentyű). Feladatunk és annak meg- 
oldásához nyújtott , segítségünk" úgy gon- 
dolom, mindenkit meggyőzött arról, hogy 
egyszerre nem érdemes foglalkozni mindkét 
típussal. Legalábbis a kezdet kezdetén nem. 
Kezdjük tehát az egyikkel! 

Commodore 64 

Írassuk ki a BASIC szót bekeretezve, a kép- 
ernyő közepére! Az előző feladatunk, vál- 


toztatva egy kicsit. A kiírást most már a szá- 
mítógépnek kell elvégeznie. Egysoros prog- 
rammal a megoldás : 


Az idézőjelek között szereplő grafikus és 
inverz karaktereket ugyanúgy állíthatjuk elő, 
mintha az előző feladatot oldanánk meg. 
Ugyanazokat a billentyűket kellett lenyom- 


nunk, és ugyanannyiszor, mint azt az előző 
feladat megoldásakor tettük. 

e Írassuk ki a szóköz karaktereket függ- 
vénnyel! 


Azt használtuk fel, hogy a kiíratás folyama- 
tos, és egy sorba 40 karaktert írhatunk. 

Akkor, ha nem írunk a PRINT utasítás elé 
sorszámot, 
adatot. 


paranccsal oldjuk meg a fel- 


e Bízzuk a kiírandó karakterek számlálását 
a számítógépre! Oldjuk meg ciklussal a 


szerkesztő karakterek kiíratását! 


e Miért kell kétszer alkalmazni az SPC 
függvényt 415 szóköz karakter kiírásához? 

Minden PRINT utasítás új sorban kezdi a 
kiírást. Többsoros programjainkban ezt hasz- 
náljuk fel. A TAB függvény a sor elejétől 
kezdi a kurzor mozgatását. 


A PRINT utasítás listájának végén sze- 
replő pontosvesszővel letiltjuk a soremelést. 

A NEXT utasításban nem szükséges a 
ciklusváltozót kiírni. 

e Legyen egy kicsit általánosabb a progra- 
munk! Adjuk meg változókkal a ciklusválto- 
zók végértékét! Ezáltal bárhová elhelyezhetjük 
a képernyőn a kiírandó szöveget. A kiírás 
kezdetének sorát és oszlopát az INPUT utasí- 
tással kérjük. 


( ÖTLET 85 eOktóber3. ) 


Az INPUT utasításban a szöveget pontos- 
vesszővel kell elválasztani a változólistától. 

e A képernyő bal felső sarkába nem tudjuk 
kiírni a keretet. Miért? Ez a 0. sor, 0. oszlop. 

A FOR ciklus egyszer mindenképpen végre- 
hajtódik. Egy vizsgálattal átugratjuk a sor- 
emeléseket végző ciklust, ha a 0. sorba akarunk 
írni, Ezt a vizsgálatot végzi az IF utasítás. 


e Egyszerűsítsük a soremelő ciklust! 

e A szerkesztő karaktereket alkalmazó 
programunkban a kurzor vízszintes mozgatá- 
sát megvalósító ciklus többször is szerepel. 
Egyforma karakterekből álló karaktersorozatot 
kell kiíratnunk. Állítsuk elő ezt a karakter- 
láncot (Sstringet) a karakterek összefűzésével! 


AT —" ":0 — " " utasításokkal a két 
karakterlánc-változónak kezdőértéket adtunk, 
mielőtt a ciklusba lépünk. Ezek az utasítások 
elhagyhatók, mivel a program indításával 
úgyis ez a karakterláncok értéke. 

A PRINT utasításban a pontosvesszőt nem 
kell használnunk, a listaelemek elválasztá- 
sára, ha azok egyértelműen megkülönböztethe- 
tők. Vannak karakterek amik jelzik a lista- 
elemek végét vagy kezdetét. Ilyen a dollárjel, 
a zárójel vagy az idézőjel. 

6 Állítsunk elő a szerkesztő karakterekből 
olyan hosszú karakterláncot, amilyen egyálta- 
lán előfordulhat! Az így kapott karakterlánc- 
ból azután a LEFTS$ függvénnyel annyit hasz- 
nálunk fel, amennyi szükséges. 

A RIGHTS függvénnyel a T$ változó végé- 
ről, MID$-ral a közepéről lehet előállítani 
adott hosszúságú karakterláncot. Mivel a T$ 
változó értéke azonos karakterekből áll, 
ezért bármelyik függvényt használhatjuk a 
programunkban. 


e Tegyük változtathatóvá a kiírandó szö- 
veget is! Ekkor a keret alsó és felső részének 


hosszát is a hosszához kell igazíta- 
nunk. A LEN függvény értéke megadja a 
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dést 


szöveg hosszát, amiből azután a keret hossza 
is kiszámítható. A keretet adó karakterláncot 
a K$ változóban állítjuk elő. 


Miért ne változtathatnánk a keretet alkotó 
karaktereket is? A T$ és a O$ változók értékét 
értékadó utasítással adjuk meg. A K$ válto- 
zónak már nem adhatunk így értéket, mivel 
minden futtatásnál más lehet az értéke. 


e Adjuk meg kódszámával a keretet alkotó 
karaktert és a CHR függvénnyel állítsuk elő 
a kódszámhoz tartozó karaktert! 

e Melyik utasítást lehet elhagyni a prog- 
ramból? 

e Milyen hosszúnak kell lennie a K$ vál- 
tozónak? Mindig szükséges a 40 karakter? 
Módosítsuk a programot! 

e Mindezek után talán már nem lesz nehéz 
egy olyan szubrutint írni, amivel tetszőleges 
szöveget, tetszőleges karakterből összeállított 
kerettel bekeretezve a képernyőre bárhová 
kiírhatunk. Szubrutinunknál a keret változ- 
tathatóságáról lemondunk. Grafikus karak- 
terekből állítjuk össze a keretet. 


e A keret sarkait most a CHR$ függvények- 
kel adjuk meg. Az inverz karakterekkel a 
kiíratás színét. 

Előállításuk: CTRL - színbillentyűk. 


e Használjuk a színek kijelölésére is a 
CHRS$ függvényt! 

e Írjunk szubrutint, amelyben az SPC 
függvényt használjuk!  Feltűnhetett, hogy 
eddig egy betűt használtunk a változók nevé- 
nek jelölésére, a szubrutinban kettőt. Csak 
tanács: használjunk a szubrutinban olyan 
változókat amilyeneket általában nem szok- 
tunk. Azzal az előnnyel jár, hogy a főmodul 
írásakor kevésbé kell ügyelni arra, hogy ne 
használjuk a szubrutin változóit. Mindenesetre 
nem árt, ha a szubrutin paramétereit és vál- 
tozóit REM-ekben megadjuk. 

Legvégül azt mutatjuk be, hogy a képernyő- 
memória és a képernyő színmemóriájának is- 
meretében hogyan lehet megoldani feladatun- 
kat. A képernyő-memória kezdő címe 1024, 
a színmemóriáé 55296. Minden karakter- 
pozícióhoz két memóriarekesz tartozik. Az 
egyiknek a tartalma azt határozza meg, hogy 
milyen karakter, a másik azt, hogy milyen 
színű legyen az a karakter. 

A képernyőn egy sorban 40 karakter lehet, 
ezérta P—12 4 40--20 a képernyő 12. sorának 
20. karakterpozícióját adja meg, ha a sorokat 
0-tól 24-ig, a sorok karakterpozícióját pedig 
0-tól 39-ig sorszámozzuk. Akkor, ha ebben a 
pozícióban meg akarjuk jelentetni az A betűt, 
a megfelelő címekre be kell írnunk az A betű 
képernyőkódját és a megfelelő színkódot a 
POKE utasítással. 

POKE 1024--P,1:POKE 55296-7-P,5 

Hatásukra a P értékévél adott karakter- 
pozícióban megjelenik egy zöld színű A betű. 
A színkód változtatásával változik a karakter 
színe. Próbáljuk ki! 

A karakterek képernyőkódjai nem egyeznek 
meg azokkal a kódokkal, amelyekből a 
CHR$ függvény állítja elő a karaktert. 
Utóbbiak a karakterek ASCII kódjai. 


e A képernyő-kódok megismerésében segít 
a következő program. A képernyőn sorban 
megjelennek a karakterek és azok képernyő- 
kódja, ha lenyomunk egy karakterbillentyűt. 
A GET utasítás beolvassa ezt a karaktert és 
fut tovább a program. 


e Az előzőek ismeretével próbálkozzunk 
meg a következő program értelmezésével! 


Befejezésül egy feladat: 
e Villogtassuk a szöveget! 
DUSZA ÁRPÁD 
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Rovatszerkesztő: HEGYI ISTVÁN 


Programváltozatok 


egy témára 


Az előző részben a következő feladatot oldot- 
tuk meg a Commodore-64 számítógépen: 

Írassuk ki a BASIC szót, bekeretezve, a 
képernyő közepére! Nézzük most a HT- 
1080 Z számítógépen a megoldást! 

e A programunk egyetlen sorból áll. A CLS 
utasítással töröljük a képernyőt és a PRINTXA 
utasítással a képernyőn oda állítjuk a kurzort, 
ahová írni akarunk. Ez a képernyő 475-ös 
karakterpozíciója lesz a programunkban. 
A két idézőjel közötti részt úgy alakítottuk ki, 

, ahogyan azt a képernyőn látni szeretnénk. 


1. lista 


Gépeljük be ezeket az utasításokat sorszám 
nélkül. Az így kiadott parancsnak is ugyanez 
lesz az eredménye, mint a programnak. 

e A HT képernyőjén 16 sorban, soronként 
64 karakter jeleníthető meg. A sorok és a s0- 
rokon belül a karakterpozíciók sorszámozását 
kezdjük 0-tól. Ekkor a következő program- 
mal a keret megjelenítése a képernyő [-edik 
sorának, J-edik karakterpozíciójában kezdődik. 


LIST 
18 INPUT 
28 INPUT 


READY 


2. lista 


(II. rész) 


A sor és az oszlop sorszámát az INPUT 
utasítással kérjük, és a PRINT a utasításban 
egy aritmetikai kifejezéssel adjuk meg a ki- 
írás helyét. A kiírás helyének megadása után 
mindig vesszőt kell tenni. 

e A szóköz karakterek helyett valami mást 
kell kitalálnunk, ha azt akarjuk, hogy a kereten 
kívül ne törlődjön le semmi sem a képernyő- 
ről. 

Állítsuk mindig oda a kurzort - ez mutatja 
a kiírás helyét - ahová tényleg írunk. Ehhez 
három PRINT(Autasításra van szükség. 


19 INPUT "SÜR";I 

28 INPUT "OSZLÜP"V";J 

38 CÜCLS:PRINTOIsóátJ  "ezzzzzzzet; 
48 PRINTE(It1)zóátJ,"z BSSIC zs"; 
58 PRINTG(IH2)zódt], "zezezzezé!j 


3. lista 


e A keret alsó és felső része több azonos 
karakterből áll. Az ilyen karaktersorozatokat 
a STRING$ függvénnyel is előállíthatjuk. 
Az argumentumban a karaktersorozat hosz- 
szán kívül meg kell adni a karaktert vagy an- 
nak kódját. 

18 INPUT "SOR";I 
20 INPUT "OSZLOP"; J 


38 CLS:PRINTEIz64tJ,STRING$(9,42), 


48 PRINTE(I$1)zóátJ,"z BASIC 
38 FRINTG(I42) 644). STRINGE( 


adig 
keddi. 


9, "e 


4. lista 


eA STRING$ függvénnyel hosszabb, vagy 
rövidebb keretet is kirajzolhatunk. Ha vál- 
tozik a szöveg, akkor változik a keret hossza 
is. A LEN függvénnyel meghatározhatjuk a 
szöveg hosszát, amiből már kiszámítható a 
keret hossza is. Ezek után már tetszőleges 
szöveget is kiírhatunk a képernyőre. Termé- 
szetesen bekeretezve. 


INPUT "SZOVEGV:3$ 
INPUT "S0R";I 
INPUT "OSZLOP" ;J 
REM KIIRÁTÁS 
N:SLEN(5$) 
PRINTEISÓÁT.I 
3 PRINTEK(It1 
88 PRINTR(It2 


STRING$( Má 


5. lista. 


e A kurzor mozgatásához a TAB függvényt 
is használhatjuk. A gond itt is az, hogy törlő- 
dik a kereten kívül eső rész. 


198 INPUT "SZOVEG";S$ 

28 INPUT "SOR";I 

S4 ZNFUT VOSZLOP";J 

48 REM KIIRÁTÁS 

si N-LEN(S$) 

68 PRINTEIséá4J.STRING$(N-44,42) 
78 PRINT TAB(JÓG"z "gép oz" 

$8 PRINT TÁB(JI:STRING$(N4-4, "et ) 


6. lista 


e Legyen változtatható a keret is! A keretet 
alkotó karaktert a K$ karakterlánc-változó 
értékeként kérjük be. 

A karakterláncok és a karakterláncokkal 
végzett műveletek számára csak 50 memória- 
rekesz áll rendelkezésünkre, ha a CLEAR 
utasítással nem gondoskodunk többről. Prog- 
ramunkban 60 karakter hosszúságú szöveg- 
hez, és a programban szereplő karakterlánc- 
műveletekhez 125 memóriahelyre van szükség. 


18 CLEAR 
INPUT 


125 

"SZÖVEG (MAX.6B KARL)": S$ 
INPUT "SOR";I:INPUT "OSZLOP" ;J 
INPUT "KERET";K$ 

REM KIIRAÁTAS 

N:LEN(S$) 

CLS:PRINTEI[£644J STRING $(Ntá.K$); 
PRINTE(I41)só4tJ,K4 ma TK$i 
PRINTE(I42)s64tJ, STRING$(N-6á "Xb; 


7. lista 


e A keret karaktereiből a T$ változóba, az 
, Összegző"  karakterlánc-művelettel,  össze- 
fűzünk egy karakterláncot. Az így kapott, 
azonos karakterekből álló, karakterláncból a 
LEFTS$ függvénnyel előállíthatjuk a keretet. 
Ezzel a függvénnyel -a karakterlánc elejéről 
írunk ki N--4 karaktert. Mivel azonos karak- 
terekből áll a karakterláncunk ezért a RIGHT 
vagy a MID$ függvényeket is használhatjuk. 
Az első végéről, a második függvény vala- 
melyik karaktertől kezdődően állít elő adott 
hosszúságú karaktersorozatot egy karakter- 
sorozatból. 

A két függvény alakja, ha a LEFTS$ helyett 
akarjuk használni: 

RIGHTS$ (T$, N--4) MIDS$ (T$, 1, N-- 4) 


CLEAR 189 
29 INPUT "SZÖVEG (MAX.6B KAR.)":$S$ 
38 INPUT 


"SOR" 5ITINPUT "OSZLOP";J 
48 INPUT "KERET";K$ 
58 REM KIIRAÁTÁS 


NELEN(S$) :Psó4rItJ 

FOR I-i TO 64:T$-T$tK$:NEXT I 
CLS:PRINTEP,LEFT$(T$.Nt4); 
PRINTEPtÓ4 Ké" "967" ";K$; 
198 PRINTEP$128,LEFT$(T$.,Nt4); 


8. lista 


e A cikksorozat címét írhatjuk ki a követ- 
kező programmal, amelyben a szavak bekere- 
tezett kiírásához egy szubrutint használunk. 
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EDES illet osüs a ezesztttáe 


ALTÓZATOK "e I-8iJ 


$ 
188 PRINTE(142) szódát, STRING$(NtÁ.K$) 


118 RETURN 


A bemenő paramétereknek, a szubrutin-  9.lista 
hívás előtt értéket adunk a főmodulban. 

A 60-as sorban mindaddig várakozik a 
program, ameddig le nem nyomunk egy karak- 
ter-billentyűt. 

6 Mindezek után, nézzük meg, hogyan kell 
a képernyő-memóriát kezelni a HT-n! 

A PRINT( utasításhoz nagyon hasonló, 
ahogyan a POKE utasítással írunk a képernyő- 
re. Azt kell csak tudni, hogy a képernyő- 
memória kezdőcíme 15360. A PRINT 150, 
"A" utasítás hatása ugyanaz, mint a POKE 
15360--150, 65 utasításé. A képernyő karak- 
terpozíciójának megfelelő címre a kiírandó 
karakter kódját kell elhelyezni. 

A szöveg kiírása okoz egy kis gondot ezzel 
a módszerrel. A szöveget szét keli szedni ka- 
raktereire - ezt egy cikluson belül a MID$ 
függvénnyel oldhatjuk meg, majd az így ka- 
pott karakterek kódját az ASC függvénnyel 


állítjuk elő. 10. lista 


18 INPUT "SZOVEG (MAX.6B KAR.I":S$ 
28 INPUT "SOR"5I:INPUT "OSZLOP" 7J 
38 INPUT "KERET";K$ 

48 REM KIIRÁTÁS 


538 CLS:N:LEN(S$):Pzi5S3óütóásI 4: KSASL(K$) 

68 TOR I: TO N$3:POKE P$I.K:NEXT 

78 P:P46ó4:POKE P,K 

99 FOR Isi TO N:POKE PtI$1,ASCAMID$(S$,I.159:NEXT 
98 POKE P-AN4t3.KiP:sPtóA 

188 FOR Is TO Nt3:POKE P$I.K:NEXT 


e Legvégül grafikus karakterekből állítjuk 
össze a keretet. Elég egy betűt bekereteznünk, 
hogy lássuk milyen grafikus karakterekre van 
szükségünk. 


1. ábra 


A keretet alkotó karakterek és 
kódszámuk : 


A kódok megállapításához 
nem szükséges táblázat, ha is- 
merjük a kettes számrendszert, 
azaz a bináris számokat. 

A grafikus karakterek pont- 
jait tekintsük egy-egy bináris 
számjegynek. Megjelöljük hogy 
az egyes pontok milyen he- 
lyiértékű számjegyeknek felel- 
nek meg. 
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3. ábra 


1-5: G0SUB 468 


3246 8424 


A keret alsó és felső részét 
alkotó karakter, mint bináris 
szám: 


4. ábra 


4--8 — 12. Ezt a számot kell 
hozzáadni 128-hoz: 128-— 12 — 
140. , 


dd1189 


Z(ERETES SZÜVEG SZUBRUTIN BEMUTATÁSA Ezt 
54,13,8.,13,54 


at 


T0 á4á:READ IX, JX:GOSUB 118:NEXT 
:S8z"HT-"6$:GOSUB 1168 


lXzó:JÁz 
7 IF INKEY$áz"" THEN 78 ELSE CLS 
88 END 
94 REM €z4 KERETES SZÖVEG É 
109. REM BEMENÜO PARAMETEREK: SZÜVEG - S$ 
50 SAROK FÜZICIUJA 
$OR 12 
OSZLOP - JX 


114 KXzJXtó4sIX:NX5LEN(S$) 

126 IF 1-6 OR I513 OR J4$NXF3-63 THEN PRINT "NEM FER EL!"TEND 
135 5X$z-CHR$(188)-4STRING$(NXt2.,148)1CHR$(188) 

136 PRINTEKX,5X$; 

137 SX$zZCHR$(191)94STRING$(NXt2,3294CHR$(191) 

138 PRINTEKXt6ó4,5X$; 

149 PRINf8KXt128,STRING$(NXt4,131); 

145 PRINTEKXtóó,5$; 

178 RETURN 


II. lista 


A szubrutin változóit két karakterrel jelöl- 
tük. Eltértünk az eddigi jelölésektől. Eddig 
csak egy karaktert használtunk a változók el- 
nevezésére. A szubrutinban használt jelölés- 
nek az az előnye, hogy a főmodul írásakor nem 
kell annyira odafigyelni, hogy nem haszná- 
lunk-e olyan változót mint a szubrutin. Ezt 
ajánlatos elkerülni, bár megengedett. 

e Természetesen szubrutinból is lehet több 
változat. Erre példa : 


KX-JXt64£IX:NXSLEN(S$) 
IF IK8 OR I213 OR J4tNX43263 THEN PRINT 
PRINTEKX42464,5$7 
PRINTEKX41, STRING$(NX42,149);:PRINTEKX4142x64, STRING$(NX42,131); 
FOR IX-8 TO 2:0X5-1988(IX-0)-1918(IX51)-1318(IX-2) 
PRINTEKX464£IX,CHR$(AX) ; :PRINTEKX4NX43464£IX,CHR$(AX) ; 
NEXT : RETURN 
A 150-es utasítássor megértéséhez talán kell 
egy kis segítség. A zárójelben szereplő relációk 
lehetnek , igazak", ekkor az értékük -1, és le- 
hetnek , hamisak", ekkor 0 az értékük. IX ér- 
téke ahogyan változik, a relációk közül min- 
dig csak egy lesz igaz, és ez a tag megadja a 
keret szélét alkotó krakterek kódját. 
6 A HT-t sajnos nem lehet színezni, így 
csak a villogtatás marad hátra. 


DUSZA ÁRPÁD 


"NEM FER EL!":END 


12. lista 


Számítógép-üzemeltetéssel kapcso- 
latos műszaki feladatok (karbantar- 
tás, javítás, fejlesztés) ellátásában 
gyakorlatot szerzett felsőfokú szak- 
mai végzettségű, angol nyelvisme- 
rettel rendelkező munkatársat ke- 
resünk DATAPOINT számítógépes 
rendszerünkhöz. 

Jelentkezni lehet:a MAGYAR RÁDIÓ 
számítástechnikai és szervezési osz- 
tályán : 337-316 


Gazdasági mérnöki tanulmányokat folytató épület- 
gépész mérnök és gyógyszerész házaspár állást változ- 
tatna. 

, Számítástechnika iránti érdeklődés 88540" jeligére 
a békéscsabai hirdetőbe. 
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Programváltozatok 


egy témára 


(III. rész) 


Egy régebbi Ötletben jelent meg ez a diagram: 


Xi 


k 
9 
7 


ae aj 
7 
Me 


É5-Jő 


cl 


s: aA 


Kyst 


ay NEE 
ÉROZÉSB És 


1960 1965 1970 1975 1976 1977 


C Jelenítsük meg számítógéppel ezt az áb- 
rát! 

(A háttérrel jobb ha nem foglalkozunk !) 

Kerüljük meg egy kicsit a problémát! Víz- 
szintes oszlopokkai legalább ilyen jól szemlél- 
tethetjük, hogy mennyit takarékoskodtunk az 
elmúlt években. Ezzel az ötlettel áttanul- 
mányozva a cikksorozat előző részét - a fel- 
adatot már meg tudjuk oldani. Nézzünk egy 
másik feladatot, ennek a módszernek a be- 
mutatására! 

CO A számítógéppel , kockát dobunk", 
többször egymás után, és oszlop-diagrammal 
szemléltetjük a különböző értékű dobások 
számát 

A diagram kirajzolása történhetne a 
,, dobások" befejezése után is, de úgy nem 
annyira látványos. Ha minden , dobás" után 
látjuk az éppen aktuális ábrát, jobban nyomon 
követhetjük a , dobásokat". Ezt nevezzük di- 
namikus megjelenítésnek, ábrázolásnak. 


1978 1979 1980 1981 1982 1983 


A különböző értékű , dobások" számát az 
A vektor elemeinek értéke adja meg. Ha M a 
,, dobás" értéke, akkor az A(M) — A(M) 1-1 
utasítással az A vektor M indexszel jelölt 
elemének értékét növeltük 1-gyel, vagyis szám- 
láljuk, hogy hányszor fordult elő az M értékű 
dobás. 


Az oszlopok megjelenítésekor az oszlopok 
helyét, ahová a sort kiírjuk, az indexek adják 
(vagy abból kiszámítható). Az oszlopok 


1 POKE 53289.9:REM KERET SZIN 
2 POKE 53281,12:REM HATTER SZIN 
3 PRINT ":":REM KARAKTER SZIN 


aa vászedok -em VIZSZINTES OSZLOP-DIAGRAMM --- 

39 B$-"haBBIA § 
49 PRINT "TIMWDOM" FOR Lsi TO 6:PRINT L"W":NEXT 
58 FOR I5s1 TO 259 

69 MzINTCEHRND(D))41 

70 ACMI-A(M)41:IF A(M)z36 THEN 1099 

89 PRINT LEFT$(A$, 24M46ILEFT$(B$ , AC(M45) 

99 NEXT 

199 GET 0£:IF O$z"" THEN 199 

118 PRINT "2" 


! hosszát az indexes változók értékei határozzák 
meg. 

A megjelenítés és a véletlenszámok előállítása 
a Commodore-on más mint a HT-n, ezért 
mindkettőre elkészítjük a programot. 
Commodore-64 

Az RND(0) függvény a gép belső óráját 
használja fel a véletlenszám előállítására. 
Ezek a véletlenszámok a (0;1] intervallumba 
esnek. Akkor, ha az argumentum értéke pozi- 
tív, akkor az előző véletlenszámból képezi az 
újabbat. Negatív értékű argumentum esetén 
a véletlenszám az argumentum függvénye. 
Ugyanahhoz az argumentumhoz ugyanaz a 
véletlenszám tartozik. 

Hogyan kapjuk meg a [0;1] intervallumba 
eső véletlenszámból a lehetséges kockadobá- 
sok értékét? Szorozzuk meg 6-tal a véletlen- 
számot, akkor kapunk egy 0 és 6 közé eső 
véletlenszámot. AZINT függvényennek a szám- 
nak az egész részét adja meg, ami 0, 1, 2, 3, 4 
és 5 lehet. Eggyel növelve a kapott értéket, 
megkapjuk a kockadobás értékét. 


HT-program: 

18 REM VIZSZINTES OSZLOP-DIAGRAMM 

28 CLEAR 129 
38 CLS:FOR Lz1 TO 6:PRINTGó4tZELs64, 1; :NEXT 
48 FOR Is1 TO 488 

58 MERND(6) 

68 ACMISAK(MÍHI:IF A(M)-óg THEN 90 

79 PRINTB64t2EMEz6át4, STRING$(A(M),191)7 


98 NEXT ;. 
IF INKEY$z"" THEN 98 ELSE CLS 


[lú szactök aa sak átás és ás lészlsátaa jlátkása ábaátg MÁG AJA URÁL 
hazai ászákzáászáüss ásásátá snátádáldlttsazatata age lták lllasztákokatátal 


Az első véletlenszámot a RANDOM utasí- 
tással állítjuk elő. Ha ezt az utasítást nem írjuk 
a programba, akkor ugyanazt a véletlenszám- 
sorozatot kapjuk, ha a gép bekapcsolása után 
mindent egyformán csinálunk. Próbáljuk ki a 
következő programmal: 


1?RND 100 

2RANDOM 

37RND 100 

A PRINT utasítást helyettesíthetjük a 
?-lel. 

A HT RND függvénye akkor állít elő a 
[01] intervallumban véletlenszámot, ha az 
argumentum értéke is ide esik. RND(0) 


esetében ugyanaz a helyzet, mint a Commo- 
dore-nál, ha a véletlenszám értékét nézzük. 
A kockadobás értékét is úgy állíthatjuk elő, 
mint ahogyan azt a Commodore programnál 
leírtuk. Akkor, ha az X értéke 1-nél nagyobb, 
az RNEXX) értéke az [1;X] intervallumba eső 
egész szám lesz. Ez ismerve a kockadobás ér- 
tékét az M—RND(6) utasításal is megkap- 
hatjuk. 

€ Ezután a kis kitérő után térjünk vissza 
eredeti feladatunkhoz, és készítsünk függőleges 
oszlopokkal is diagramot! 
HT-n a megoldás így fest: 


ÖTLET 85 e Október 17. 


) 


A program elején kirajzoltatjuk a diagram 
alapját. Fix adatokkal dolgozunk. Ezeket a 
DATA adatmezőben adjuk meg, ahonnan a 
READ utasítással olvassuk be. Azokkal az 
évekkel, amelyeknél nem ismertek az adatok, 
úgy számolunk, mintha nem  takarékos- 
kodtak volna, és kihagyjuk a helyet. Így jobban 
látszik az időbeni változás. 

Az oszlopok előállításához meg kell adni 
az oszlop aljának helyét és onnét kezdve kell 
az oszlopot létrehozó karaktert felfelé halad- 
va elhelyezni. 

Két egymásba ágyazott ciklussal oldhatjuk 
meg az előző problémát. A külsővel beolvas- 
suk az adatokat a DATA-sorokból. Ennek a 
ciklusnak a ciklusváltozója - amint számlálja, 
hogy hányadik adat beolvasása történik -, 
azt is megadja, hogy hol lesz az oszlopok 
alja. 

A belső ciklussal, alulról felfelé haladva, 
ahogyan csökkentjük a sorok sorszámát, ki- 
rajzoljuk az Y magasságú oszlopot. 
Commodore-program: 


1 POKE 532809,3:REM KERET SZIN 

2 POKE 53281 .,12:REM HATTER SZIN 
3 PRINT "23":REM KARAKTER SZIN 
18 REM --——-  OSZLÖF DIAGRAMM 
PRINT "I"; :Pz2444g:Hz1G244P : 
FOR I:9 TO 39 

POKE H$I.169:POKE S4$I,1 


szs5szgetP 


NEXT 

FOR Iza Tü 29 

READ vV:vz2z4gY 

FOR Jzg TOY 

Pz(24-J) 44041 : H19244P 
199 POKE H, 169:POKE S, 1 
118 NEXT 

128 
139 
148 
159 
178 
189 


$-552964P 


Két kérdés : 


Oo Melyik karakternek az inverz karaktere 
a 160 ASCII kóddal adott karakter? 

O Mit takarítottunk meg a DATA végére írt 
sok nullával? 
HT-program: 


RINT215£64tI,CHR$(191);:NEX 


READ YIY-2eY 
FOR JO TOY 
PRINTE(15-J)x6442£I,CHR$(191); 


68 NEXT J:NEXT I 

78 IF INKEY$-"" THEN 78 ELSE CLS:END 

89 DATA 2,9.,9.,9.0.3.2,9,9,9.,9.5.6,9,9,8, 
98 DATA 6,5.7,6 sg 7 4. SZÜ söze? söt 


199 DATA 0,8,8,9,B, 
119 DATA 8,8.8,8,8,B, 


O Hogyan hagyhatnánk el a DATA végéről 
a sok nullát? 

€ Finomítunk programjainkon! Egynél ki- 
sebb eltéréseket is szeretnénk érzékeltetni a 
diagrammal. A grafikus lehetőségek különbö- 
zősége miatt a két géptípust külön tárgyaljuk. 
Commodore : 

A Commodore karaktereit 8 x8-as pont- 
mátrixszal ábrázolhatjuk. Az ötlet az, hogy a 
grafikus karakterek között biztosan van olyan, 
amelyik az alsó pontsort, és lesz olyan, ame- 
lyik az alsó két pontsort é.i.tjeleníti meg. Eze- 
ket a karaktereket mutatja be a következő 
program: 


1 PRINT"T" 

2 FOR I-ú TD 7:REHDY:FOKE 
18244I , 7: FOKESSZ296t I , 3: HEXT 
3 DATA 16£8.227.247.,243, 
238.121.111 
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A kódokat elhelyeztük az A vektorban, 
növekvő sorrendben. 

A tizedekből kell előállítanunk a megfelelő 
indexet. Ez történik a 121-es sortól kezdődően. 

A belső ciklussal Y egész értékig megtörté- 
nik az oszlop rajzolása. A J értékével azt a 
helyet adjuk meg, ahová a törtrésznek meg- 
felelő karaktert kell elhelyeznünk. A 122-es 
sorban határozzuk meg M értékét, ami a ki- 
írandó karakter kódszámát tartalmazó A 
indexes változó indexét adja. Ezt a karaktert 
jelenítjük meg a 126-os sorban. 

A 121-es sort el is hagyhatjuk, mivel J, a 
ciklusváltozó a ciklusból kilépve a végérték 
egész részénél eggyel nagyobb lesz. 

A DATA adatmező végét ebben a program- 
ban egy negatív számmal jeleztük. Ezt vizs- 
gáljuk a 70-es sorban. A ciklusból úgy lé- 
pünk ki, hogy a ciklusváltozó értékét a vég- 
értékre állítjuk, és a ciklust záró NEXT utasí- 
tásra ugrunk. Így a megszokott módon - ami- 
kor a ciklusváltozó értéke eléri a végértéket, 
fejeződik be a ciklus. Egy kicsit besegítet- 
tünk. 

HT-programt 


1 POKE 53288.,9:REM KERET SZIH 


2 FPÜKE 53281,12:REM HATTER 


REM -—— — OSZLOP DIAGRAMM 
AC) 36: Ar1)5111:AC2)s121:A(32)-5g 
A(4) 248: A(5) 5247: A(6) 5227: A(7) 169 


28 PRINT "I"; :P:r24k4A:H:19244P:Sz552964P 
38 FOR Iza Tü 39 

48 PÜOKE H$I,169:POKE S4tI,1 

58 NEXT 

68 FOR Ig TO 39 

798 READ V:vYs2zgY:IF YCA THEM I5-39:GOTO 139 


FÜR Ja TOY 
Pz(24-I)4494I : H-19244P : 5-552964P 


198 FPOKE H., 16€8:POKE S.1 

128 MEXT 

121 JsINT(YI-41 

122 M-Y-INTKY):MzINT(B8HMI 

124 Pz(24-J)$40-4I : H19244P : SZS5ZS64P 

126 POKE H,A(M3:POKE 5.1 

138 MEXT 

148 GET WH£:IF W$z-"" THEN 149 

159 DATA 2.a.9.8.9,3.2.,9.ú,A,A.5.E,A,A,BB 
169 DATA 6.5.7.6£.6€.7.2.4.7,4.2.5.3.4.7,6.7 
179 DATA -1 


3 Bijfeltáai 532899,9:PÜOKE 53281.14:REM SZIMEK 


A REM ttt  BOMERZAS 444 
29 PRINT "27" 
38 REM —---— HAZAK FELHLZASA --- 
4 FOR I51 TO 19 


38 Ezs3$4RHD(G):IF E52 THEN 119 

698 Yz1D$RNMD(A? 

78 FOR Jzú TOY 

89 Fz-(24—JÓ$46428I : H-1ü244P : SzS52Z964P 
98 PÜKE H.163:POKE S.1 

199 MEXT 

118 HEXT 

128 REM -—-- INDUL A REPULO ——- 

138 R-ő 

148 R-R4$1:IF PEEK-18244R)-168 THEM 589 
158 IF R-5999 THEN 6M8 

169 GET MH$:IF Wéáz"" AMD V-A THEN GOSUB 
179 REM --- ESIK A BOMBA --- 

188 GOSUR 349 

198 IF YVzü THEM ARzINT(R/495 : B-R-404A 
288 P-A$4A4R : H-1A244P : 5—S52364P 

218 K-42:G511:GÜSUB 499 

228 Hz-H-48:5-5-48:K-32Z:G6z14:GOSUB 499 
238 IF AC24 THEM AzAtr1:Vz1:GOTO 149 
240 G-A:H-Hr4g: S-ztd4g:GOSUB 490 : Vg : GOT! 
308 REM -——— REPULO -——- 

319 FOKE 19244R-1.32:POKE 5529648-1.14 
320 FOKE 18244R.EZ:FPOKE S523964R.9 

338 RETURN 

488 REM --— BOMBER -—-- 

420 PÜKE H.K:PÜKE S.G 

438 RETURN 

5980 FRINT"7RRBBEBERBEBBEBBBERBIVESZTETTEL " 
6a8 PRINT"-BRB BEBB BEIGYÜZTEL " : EM 
READY. 


A HT grafikus karaktereit 6 ponttal adhat- 
juk meg. A pontok 3 sort és 2 oszlopot alkot- 
nak. Egy karakterhelyet tehát három részre 
tudunk osztani. Három különböző magasságú 
grafikus karakterrel a tizedesrészt is jelezhet- 
jük. A kerekítéseket is figyelembe véve, ha 
a törtrész 1/6 és 3/6 közé esik, akkor a grafikus 


karakter kódszáma 176, ha 3/6- 1/2 és 5/6 
közé esik, akkor 188. Amennyiben 5/6-nál 
nagyobb a törtrésze Y-nak, a karakterhely 
minden pontját megjelenítjük. Fzt a 191-es 
kódszámú grafikus karakter kiírásával érjük el. 
A kiírandó karakter kódszámát a 100-as 
sortól kezdődő vizsgálatokkal határozzuk meg, 
miután kiléptünk a ciklusból. A ciklussal Y 
egész részéig történik az oszlop megjelenítése. 
A következő helyre a törtrészt tesszük. Ennek 
helyét adjuk meg a 95-ös sorban. Ezt a sort 
el is hagyhatjuk, mivel J értéke a ciklusból ki- 
lépve annyi lesz, amennyit így adunk neki. 
Az adatokat beolvasó ciklusból úgy lépünk 
ki, hogy a ciklusváltozó értékét a végértékre 
állítjuk ésa ciklusszáró NEXT utasításra ug- 
runk. 
18 REM OSZLOP DIAGRAMM 


38 CLS:FOR I-8 TO 62:PRINTC15£64tI,CHR$(191);:NEXT I 
40 FOR I-8 TO 31 

58 READ Y:Y-2EY:IF Y-B THEN I531:GOTO 148 

68 FOR J-Og TO Y-1 

78 PRINTE(15-J)6ó442£I,CHR$(191); 

89 NEXT J 

98 0-128:M-Y-INT(Y) 

199 IF M21/6 THEN 0-(04r48 

110 IF M2O.5 THEN (-At12 


128 IF M25/6 THEN a-043 
138 PRINTE(15-J)s64425I,CHR$(G); 


149 NEXT I 

158 IF INKEY$-"" THEN 158 ELSE CLS:END 

168 DATA 2,8.,8,B,0,3.2,8,9,8,0,5.6 

1786 "DATA 8.86. 8.6. SZ ráér dás zá S Bál; 6.7 
199 DATA -1 


- Az előző programok , mellékterméke" 
egy kis játékprogram. Az oszlopokat tekintsük 
most , épületeknek" amiket , lebombázunk". 
Egy karaktert futtatunk végig a képernyőn. 
Ez a , repülő". Ha lenyomunk egy billentyűt, 
akkor kioldódik egy , bomba". Ez egy lefelé 
haladó karakter, amelyik törli a , házakat" 
alkotó karaktereket. Ha valamelyik ,,házzal" 
ütközünk, akkor veszítettünk. Sikeres értel- 
mezést - jó szórakozást és továbbfejlesztést 
kívánunk. 

DUSZA ÁRPÁD 


399: W$z"":GOTO 149 
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Rovatszerkesztő: HEGYI ISTVÁN 


Prog ramváltozatok 
egy témára (IV. rész) 


Mielőtt hozzákezdenénk egy újabb feladat 
megoldásához, gondolkozzunk el azon, mi 
okozza a legnagyobb gondot a programozás 
tanulásában. 


Úgy vélem, elkezdeni nehéz. Nem ismerjük 
a számítógépet, a programozási nyelvekről 
sem tudunk semmit. Nem látjuk, mit tud a 
számítógép. Még a billentyűket is félve nyom- 
juk le, ha egyáltalán megtaláljuk. 

Hogyan kezdjünk hozzá mégis? Próbálkoz- 
zunk kis programok begépelésével, futtatásá- 
val. Azon kívül, hogy megbarátkozunk a bil- 
.lentyűzettel, a programok futtatásával értékes 
információkhoz juthatunk , feketedobozunk- 
ról", a számítógépről, a program tanulmányo- 
zásával a programozási nyelvről. Az első ön- 
állóan megírt programhoz nemcsak azt kell 
tudnunk, hogy mit szeretnénk, de azt is, hogy 
az megoldható-e azon a számítógépen, és 
azon a programozási nyelven, amivel dolgozni 
szeretnénk. Ehhez ismernünk kell a számítógép 
és a programozási nyelv lehetőségeit. Ha el- 
fogadjuk azt a tényt, hogy a számítógépet, 
egy programozási nyelvet csak úgy ismerhe- 
tünk meg, ha programot írunk, akkor ez a 
,522-es csapdája". 

A személyi számítógépek lehetőségeit ki- 
használva, az lehet egy járható út, hogy a 
számítógépet és a programozási nyelveket 
programokkal mutatjuk be. Ezeknek a ,,be- 
mutató" programoknak mindenekelőtt tanul- 
hatóknak, tanulmányozhatónak kell lenniük, 
ha azt akarjuk, hogy mások ne csak lássák, 
de meg is értsék, mit csinál a program, a 
számítógép. 

Mi most egy olyan , tanító program" meg- 
írására vállalkozunk, amivel a számítógép ön- 
magát tanítja. A billentyűzet használatát tud- 
juk majd vele gyakorolni. Az ilyen jellegű 
programok a számítógépnek azt az igen jó 
tulajdonságát használják ki, hogy a gép , tü- 
relmes" és , kitartó". 


1 billentyűzetről. 


Írjunk programot, ami kiír egy karaktert a 
képernyőre, és mindaddig vár, ameddig le 
nem nyomjuk a megfelelő billentyűt (billen- 
tyűket)! A program értékelje ügyességünket! 
Egy kis előismeret birtokában a cikket sem 
kell elolvasni, önállóan is megoldható a fel- 
adat. Ehhez adunk egy kis segítséget. 

Mit kell tudnunk? 


e Hogyan írhatjuk ki a karaktereket a kép- 
ernyőre? 

Programunk kiírja a karakterek ASCII kód- 
ját és a kódhoz tartozó karaktert, amit a 
CHRS$ függvénnyel állítunk elő. A kódok ér- 
téke 0-tól 255-ig tart. 


REH 0 ———- ERERETEREK 


a FOR 151 TŰ 


a FRIHT"a4"CHR$(I.1 
d GET W$:IF Máz"" THEH dHA 
SA HEXT 
RERUY 


Gépeljük még be a következő sort! 

HT: 40 IF INKEY$ — " " THEN 40 
Az INKEYS$ függvény értéke mindaddig az 
süres" karakter (az idézőjelek között nincs 
semmi), ameddig le nem nyomunk egy bil- 
lentyűt. Lenyomva egy billentyűt, a függvény 
értéke az így begépelt karakter lesz. 

C-64: 40 GET O$:IF O$ — " " THEN 40 
A GET utasítás végrehajtása akkor fejeződik 
be, ha lenyomunk egy billentyűt. A O$ vál- 
tozó értéke a lenyomott billentyűhöz tartozó 
karakter lesz. 

Ezt a sort azért kellett beírnunk, hogy a 
program mindig csak egy karaktert írjon ki. 
Akkor írja ki a következőt, ha lenyomunk 
egy billentyűt. Ezzel egyben azt is megmutat- 
tuk, hogyan lehet egy karaktert beolvasni a 
A program futtatásakor le- 


— KÜTK 


gyünk türelemmel, mivel az első karakter, 
amit látunk is, az a 33 kódnak megfelelő 
felkiáltójel lesz. Addig az ún. , meg nem jelenő 
karaktereket" írja ki a program. Ezeknek a 
karaktereknek a kiírásával a képernyő álla- 
potát, a kiírás módját, a kurzor helyzetét 
adhatjuk meg. A nyomtató használatakor a 
betűtípusok kiválasztása történhet kiírásuk- 
kal. Az ilyen karaktereket , vezérlőkarakterek- 
nek" is nevezhetik. 

e Tanulmányozzuk a kézikönyvben talál- 
ható kódtáblázatokat! 
HT-1I080Z 

Adjuk ki a SYSTEM parancsot! A meg- 
jelenő ? után gépeljük be a következőt: 
12288 és nyomjuk le a NEW LINE billen- 
tyűt! Ezek után kisbetűket is kiír a progra- 
munk, de lesz más változás is. 

Ez a program minden látható karaktert ki- 
ír a képernyőre. 
Commodore 64 


18-REM ss 
29 CLS 

38 W$zINKEY$:-IF W$- 
49 PRINT W$.,ÁASC(W4) 
sA GOTO 38 


—- BILLENTYUZET —-- 


az nt 


THEN 68 


e A C- és a SHIFT billentyűk egyszerre 
történő lenyomásával a , nagybetű-grafikus 
kódok" módból a , kisbetű-nagybetű" mód- 
ba állíthatjuk a kiírást. A visszaállítás is ugyan- 
így történik. 

e Milyen karakterek vihetők be a billen- 
tyűzetről, ill. milyen kóddal azonosítható egy 
billentyű lenyomása, vagy két billentyű együt- 
tes lenyomása? Ezt vizsgálhatjuk ezzel a prog- 
rammal: 

Commodore 64: 


18 REM KODTABLÁAZAT --- 

28 CLS:FOR I-32 TO 191 

38 X$-STRING$(4-LEN(STR$(I)),32) 
49 PRINTEYz64tXE6,X$7IFCHR$(I); 

58 YzYsr1:IF Yzi6 THEN Y-B:X-Xti 

68 NEXT 

78 IF INKEY$z"" THEN 78 


e A SHIFT, CTRL és a Cs billentyűkön 
kívül, ha más billentyűt is lenyomunk az 
előzőekkel egyidőben, milyen karaktereket 
kapunk? Hol találjuk ezeket a billentyűkön? 


e Mi lesz a funkcióbillentyűk kódja? 


e A HT-1080OZ-n a 20-as sort át kell írni, 
mivel a billentyűzetről másképpen történik 
egy karakter beolvasása, mint a C-64-en. 
Erről az előzőekben szóltunk. 

20 0$ — INKEYS$:IF O$ — " " THEN 20 

Mindezek után hozzákezdhetünk a program 
írásához. Tudom, legtöbben akik önállóan 
akarták megírni a programot, meghallva a 
feladatot, leültek a gép mellé, és elkezdték 
begépelni a programot. A kezdőket mindig 
csodálattal tölti el, ha ilyet látnak. Ebben azon- 
ban van egy ,, trükk", amit nem lehet észre- 
venni. Az, aki így ír programot, az először is 
átlátta a feladatot, végiggondolta, hogyan 
fogja azt megoldani, milyen problémák adód- 
hatnak, amire ügyelni kell. Fejben megtervez- 
ték a programot. Magyardolgozatnál ez a 
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vázlat, matematikafeladat esetében ezt meg- 
oldási tervnek nevezzük. A tervezést is tanulni 


kell. Hozzá kell szoktatnunk magunkat ah- 
hoz, hogy gondoljuk végig, mit akarunk. Sok 
időt takaríthatunk meg. 

A programunknak három részfeladatot kell 
megoldania. Ki kell írnia a karaktereket, dön- 
tenie, hogy jó billentyűt nyomtunk-e le, és 
végül értékelnie kell teljesítményünket. Ez te- 
hát három programrészt jelent, három szub- 
rutint. Ezeket fogja össze, ezekkel dolgozik 
a főprogramrész. (A modul szó helyett hasz- 
nálom a továbbiakban ezt a megnevezést.) 

Nézzük külön-külön a programrészeket! 
KARAKTERKIÍRAS 

Nem tartozik minden kódhoz olyan karak- 
ter, amelyet ha kiírunk, akkor tudnánk, hogy 
melyik billentyűt kell lenyomnunk, és vannak 
olyan , karakterek", amelyeket a programba 
nem tudunk beírni (pl.: C-64: RETURN, 
funkcióbillentyűk , karakterei"; HT: NEW 
LINE, grafikus karakterek stb.), csak a CHR$ 
függvénnyel tudjuk előállítani. A két gép 
karakterkészlete sem azonos. Programunkat 
úgy szeretnénk megírni, hogy minimális vál- 
toztatással mindkét gépen futtatható legyen. 
A program általánosítását majd az olvasóra 
bízzuk. Csak a betűket fogjuk kiíratni. Ezzel 
leegyszerűsítettük a feladatot. Úgy izgalmas 
a megfelelő billentyű megtalálása, ha nem 
tudjuk, mi lesz a következő karakter. Használ- 
juk a karakter kiválasztásához a véletlenszám 
függvényt. 

VÁLASZ BEOLVASÁSA 

Egy karaktert kell beolvasni a billentyűzetről. 
Ezt már tudjuk, hogyan csináljuk. Ezt a ka- 
raktert megvizsgáljuk, és ha nem jó, akkor 
tovább várakozunk. 

A várakozási időt a H változó értéke adja, 
miután a várakozás közben az értéke nő. 

A C-64-en a TI változó értéke a bekapcso- 
lás óta eltelt időt mutatja. TI/60 másodperc- 
ben adja az időt. Ezt ismerve a tényleges idő 
is meghatározható. 

ÉRTÉKELÉS 

A H változó értékét osztjuk a kért betűk 
számával, és egy tizedes pontossággal kiírat- 
juk a teljesítményt. 

FŐPROGRAMRÉSZ 

Lehetett volna ezzel a programrésszel is kez- 
deni a tervezést. Ez egy kicsit több gyakor- 
latot igényel, de érdemes megtanulni. 

Több karakter begépelését kérjük egymás 
után, ezért egy ciklusból hívjuk a VÁLASZ 
BEOLVASÁSA és a KARAKTER KIÍRÁSA 
programrészeket a GOSUB utasításokkal. 

A főprogram írásakor csak aázt kell tud- 
nunk, hogy hol, milyen sorszámmal kezdőd- 


nek a szubrutinok. A. könnyebb megjegyez- : 


hetőség kedvéért a BETŰKIÍRÁS a 200-as, 
"a VÁLASZKÉRÉS a 300-as, az ÉRTÉKELÉS 
szubrutin a 400-as utasítássorral kezdődjön. 
Az utóbbit akkor hatjta végre a program, 
amikor kilépünk a ciklusból. 


18 REM 4 ISMERKEDES A BILLENGYŰUZETTEL § 
2a REM 


21 REM szét ELŐKÉSZÍTÉS. ses 

22 REM 

98 INPUT"BETUK SZAMRA":HN 

99 REM 

199 REM --—- FOPROGRAMRESZ --- 
1891 REM 

119 FOR I5-1 TON 

129 GOSUB 299a:REM ---5 BETU KIIRAS 


129 GOSUB 3989:REM ——— VALASZ 
149 

158 GOSUB 489 :REM ---35 ERTEKELES 
169 END 

299 REM 
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291 REM -—n BETU KIIRAS --- 
282 REM 

218 LE26$RND(A)41 

279 K$zCHR$(644L):PRINT K$ 

289 RETURN 

399 REM 

391 REM assz VALASZ ze 

382 REM 


319 GET X$:H-HtI 


329 IF X$z"" THEN 319 

330 IF X$OK$ THEN PRINT "TEVES":GOTO 319 
340 PRINT "HELYES" 

258 RETURN 

480 PEM 

401 REM — -— ERTEKELES --- 

492 REM j 

418 PRINT "HIBAPONT/BETUSZAM" ; INT(H/NY199/19 
420. RETURN 

PERDY. 


e Először BETŰKIÍRÁS szubrutint változ- 
tatjuk. A CHR$ függvénnyel a program állí- 
totta elő a karaktereket. Első változatunkban 
a DATA-ba írjuk a megjelenítendő karaktere- 
ket, és onnan olvassuk be a READ utasítással. 
A RESTORE hatására a beolvasás a DATA 
elejéről kezdődik. A FOR ciklus kikeresi a 
DATA L. elemét. 


289 
291 


REM 
REM 
za2 REM 
219 DATA A.B.C.D.E.F.G.H.I.J.K.L.M 
229 DATA N.0.P.A.R. S. TIL YA Z 
2329 L52E$4RMD(A)41 

240 RESTÜRE 

259 FOR J-1 TŰ L:RERD K$:NEXT 

260 FRINT K$ 

278 RETURN 


mm BETU KIIRAS --- 


e Ne kezdjük mindig a DATA elejétől a be- 
olvasást, csak ha a végére értünk. 


za REM 

201 REM szem BETU KIIRAS ——- 

282 REM 

218 DATA A. B.C.D.E.F.6.H.I.I.K:L.M 
229 DATA MH.0. P.A.R.3.T.UYKXYZ 
2328 L-SA$RMDO(A 141 

24a FOR J:r1i1 TO L:RERAD K$ 

25a IF K$-"Z2" THEN RESTORE 

260 MEXZT 

279 PRINT K£ 

280 RETURN 


e Olvassuk be az A$ indexes változóba az 
adatokat, és írassuk ki annak egyik elemét. 
Az L véletlenszám az index lesz. A DATA-t 
bárhol elhelyezhetjük a programban. Most, 
hogy az ELŐKÉSZÍTÉS főprogramrészt is 
változtatjuk, ide írjuk. 


za REM 

21 REM sze JELOKESZÍTES ese 

22 REM 

39 TATA A.E.C.TLE.F.G.H.I.I:.K:.L:.M 
48 DATA MPA S T UV HIK A. V.Z 
59 DIM H$(26 

6A FÜR Izi TŰ 2E£:READ A$CI5:HEXT 
98 IMFUT"BETUK SZAMA" ;:H 


99 REM 


A BETŰKIÍRÁS szubrutin most így néz ki: 


REM 
REM 
: REM 

LZé§RHOC E 41 
KSZzMID$(HE.L.17 
RETLRH 


zszáastóá : 24 3 AA o b d s 2 


:PRIMHT K$ 


289 


e A betűket helyezzük el egy karakterlánc- 
változóban, és onnét MID$ függvénnyel ol- 
vassuk ki az L. karaktert, amit azután kiírunk. 


A főprogramrész : 


28 REM 
21 REM 
22 REM 
30 A$z"ABCDEFGHI IKLMMŰPGRSTUVHAYZ" 
aa INPUT"BETUK SZAMA"S:N 


am ELÜKESZITES --- 


A szubrutin : 


zZHKH KEN 
291 PEM 
2a2 PEM 
219 LEZEHRMIKEDÉT 

279 PRINT A$(Ló:KEZSAH(LO 
28A PETURH 


--- BETU KIIRAZ ——— 


e Eléggé egyhangúan veszi tudomásul a szá- 
mítógép, hogy mit gépeltünk be. Tegyük egy 
kicsit , emberibbé" programunkat. A VÁ- 
LASZ szubrutinból hívjuk azt a két szubru- 
tint, amelyekkel változatosabban tudatja ve- 
lünk a számítógép, hogy jó billentyűt nyom- 
tunk-e le. 


389 REM 
31 REM 
302 REM 
319 GET 5/$£:HsHt1 

329 IF sz$-"" THEM 318 
379 IF A$£€6K§ THEH 
GOSIE 498A:GÜTŐ 318 
340 GOSUE 598 

3538 RETLIRH 


A két szubrutin : 


ss VALASZ 


--- TEVES --- 


RzINT(4£RND(A2 941 
IF Rz1 THEM PRINT 
IF Rs2 THEM PRINT 
IF PR53 THEM FRINT 
IF Rz4 THEM PRINT 
460 RETURN 
sag REM 
REM 
JIZINTC4$RNI(R941 7 

ON J GOTO SZA, 549, 558. 560 
PRINT "HELYES" :RETLIRH 

5498 PRINT "JO":RETIRM 

PRINT "UGYES" :RETLRH 
PRINT "TALALT" :RETURM 


"TEVES" 
"MEM JO" 
"ELYETETTED" 

"EZ MEM SIKERÜLT" 


——— HELYES -—- 


A HELYES szubrutinban az ON-GOTO uta- 
sítás J értékétől függően folytatja a progra- 
mot. 

e Ugyanez a szubrutin ON-GOSUB utasítás- 


sal: 

sa FEM me HELYES ——- 
5Aa1 REM 

516 JIzIHT(4$RMHIM RH 4-1 


sza úM J GOSLIE 53.548. 35A.36A 
523 RETUEHM 

sza PRIMHT "HELYES" :KRETILIRH 

s4a PRIHT "TÖ":RETLURH 

558 PRIMT "UGYES" :RETIRH 

5Eg PRIHT "TALALT": RETLIRH 


e Feladatok: Ne írja ki kétszer egymás után 
ugyanazt a szöveget! 
e Készítsünk programot a BASIC alapszavak 
jelentésének gyakorlásához! 

DUSZA ÁRPÁD 


"Az Ötletben 


- továbbra is . 


T Ú 


— Számítástechnika 


- ag 


BASIC 


§ 


j 


Rovatszerkesztő: HEGYI ISTVÁN 


Programváltozatok 
egy témára (v. rész) 


Spectrumosok figyelem! 

A cikksorozat korábbi részében a Commodore 
64 és HT 1080Z billentyűzetének és képernyő- 
jének kezelését ismerhettük meg néhány na- 
gyon egyszerű program segítségével. 

Mivel a személyi számítógépek közötti 
különbségek leginkább a billentyűzet és a kép- 
ernyő kezelésében mutatkoznak, ezért ezekkel 
a részekkel minden gépen külön-külön érdemes 
foglalkozni. 


A Spectrum az a géptípus, melynek a billen- 
tyűzete a leginkább kilóg a sorból. A gyártók 
szerették volna a felhasználók dolgát azzal 
megkönnyíteni, hogy a BASIC alapszavakat 
ne kelljen mindig begépelni, ezért azokat egy 
billentyű lenyomásával  ,,beírhatjuk". Így 
a billentyűzet egy-egy billentyűjének öt funk- 
ciója is lehet. Annak eldöntését, hogy ez, vagy 
hagyományos billentyűzet a megfelelőbb, a fel- 
használóra bízom. Egy biztos, a Spectrum 
billentyűzetének megszokása valamivel több 
időt igényel, viszont ha már jól ismerjük, 
gyorsabban lehet a megírt programokat begé- 
pelni. 

A képernyőkezelés különbségeiért leginkább 
a gép belső felépítése és az azt működtető 
program a felelős. 

Ahhoz, hogy némi összehasonlítást is lás- 
sunk a géptípusok között, nézzük most meg a 
Spectrumon a Commodore 64-en bemutatott 
programsorozatot. Legyen szintén az a fel- 
adatunk, hogy írassuk ki a képernyőre a kö- 
vetkezőt: 


kikkkkkkik 


t BASIC " 


kikkitkkkkik 


Célunk, hogy végül eljussunk egy teljesen álta- 
lános szöveg, bármilyen kerettel, a képernyőn 
bárhova, bármilyen színnel való kiíratásához. 
Ráadásul próbáljunk meg , fényújság" progra- 
mot készíteni. 
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A Commodore 64-nél és a HT-nél egy tetsző- 
leges szöveg kiíratásának legegyszerűbb módja, 
hogy a cursott a kívánt pozícióba visszük a 
5—" és , —" billentyűk segítségével, és már 
írhatjuk is a szöveget. 

A Spectrumnál ilyen lehetőségünk nincs. 
Bármilyen szöveg kiíratására utasítást kell 
kiadnunk, vagy programot írnunk. A kép- 
ernyő itt 24 x 32 karakterből áll, melynek alsó 
2 sora üzenő mezőként üzemel, így annak hasz- 
nálata nem megengedett. 

A legkézenfekvőbb program, amellyel a 
BASIC szót keretezve a képernyő közepére 
kiírhatjuk : 


1 PRINT AT 18.115 "EXXXXZ4EKK 
X BASIC X 
FXAEEKEXKK 


A PRINT AT 10, II utasítással megadhat- 
juk a keret bal felső sarkát. Itt azt használtuk 
ki, hogy a PRINT utasítás az idézőjelek közé 
tett szöveget sorfolytonosan írja ki. 

A következő 3 soros program már jobban 
áttekinthető: 


11" EAXEXKKEKK 
115"k BASIC 4" 
VIG" EKERAKEKKT 


19 PRIMT AT 18. 
28 PRINT AT 11. 
38 FRIMT AT 12.1 


A TAB alkalmazásával az üres karaktereket 
lehet helyettesíteni: 


18 PRINT AT 19.11 "4ERKREEEE ; 
TRE 115"k ERSIC X"5THRE 115"4KHX4K 
HAKK" 


Jó megoldást ad a következő rövid program 


Is: 

19 PRIHT AT 14.98 

29 FRINT TRE 11:"$EEREHEEEET 
39 PRINT TRE 11:"£ ERSIC 4" 
43 PRIMT TRE 115"4ZA44EHEKKEKT 


Ahhoz, hogy tetszőleges helyre írhassuk ki 
a kívánt szöveget, gondoskodnunk kell arról, 
hogy a kívánt sor és oszlop értékét a program 
megkérdezze. Erre a feladatra kiválóan alkal- 
mas az INPUT utasítás: 


18 CLS 
29 IHFUT "SOR "55 
38 IMFUT "OSZLOP ";0 


498 PRINT AT 5.0 "EREKXKEKK" : TH 
B 05"4 BASIC 4" GTAB OGVAEREREKEKE 


E rövid program a kívánt pozícióba helyezi 
a már jól ismert szöveget. 

Egészítsük ki most a programunkat azzal, 
hogy a program kérdezze meg a kiírandó szö- 
veget, és gondoskodjon a szöveg bekeretezésé- 
ről is: 


149 CLS INPUT "SZÜVEG ";A$: I 
NPUT "SOR ";$: INPUT "OSZLOP ";0 
159 LET H-LEN As 


169 FOR Czs0 TŰ 0$H4S: FRIMT AT 


$.Cs"x": NEXT C 
179 PRINT AT S41.05"£ "ARG" XX" 
189 FOR C-0 TŰ 04H$H3: PRINT AT 
S$2,0."X": NEAT C 
181 STOP 


Mivel most már a szövegünk tetszőleges hosz- 
szúságú, a keret nagysága is ahhoz igazodik. 
A LEN függvény segítségével megtudhatjuk, 
hogy a szöveg hány karakterből áll. A H vál- 
tozó fogja tartalmazni, hogy a szöveg hány 
karaktert tartalmaz. A keret kirajzolását cik- 
lusba szerveztük. A ciklusváltozó a megadott 
értéktől növekszik a szöveg hosszának megfe- 
lelően. 

Miért pont 3-mal kell megnövelni az 0--H 
értékét? 

Előbbi programunk már tetszőleges szöveget 
ír ki tetszőleges helyre, amikor a szöveg hosz- 
sza vagy a sor ill. oszlop túl nagy értéke miatt 
a szöveg , nem fér ki" a képernyőre. 


Oldjuk meg ezt a feladatot! Bővítsük ki ! 


a programunkat a következőkkel is: 
— kérdezze meg a szöveg színét, 
-— kívánságra villogtassa a szöveget, 


- kérdezze meg, hogy a keret milyen karak- 


terek ből álljon! 


188 CLS : LET FzsgG: INPUT "SZÖVE 
G ";A$ 

192 LET H-LEN A$ 

119 INPUT "SOR "S 

112 IF 542521 THEM G0 TŰ 110 

129 IMHPUT "OSZLOP ";0 

122 LET LsHrO$3: IF L531 THEH G 
0 Tü 128 

142 IMPUT "SZOVEG SZINE 4-7 ";I 

144 IHFUT sZZOVEG VILLOGJOM? I[/ 


MF 

146 IF Fsz"I" THEN LET F-1 

159 IMPUT "KERET EBBOL A KARAKT 
ERBÜL ALLJOM ";K$ j 

169 FOR C50 TŐ L: FRINT AT 8.C; 
K$: MEXT C 

179 PRINT AT S$41.0Ké;" "; IMK 
I; FLASH F;Af;: PRIHT " ";K$ 

189 FOR C50 TŰ L: PRINT AT 8-2, 
C;K$: MEXT C 

181 STOP 


A112-esésa 122. sor gondoskodik arról, hogy 
a szöveg a teljes kerettel együtt a képernyőre 
kerüljön. A program 100-as sorában az F—O 
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értékadó utasítás a villogásmentes szöveget 
jelenti, melyet a "SZÖVEG VILLOGJON?" 
kérdésre adott igen válasz F — 1-re változtat. 
A szöveg az INK n függvény hatására n (0. . . 7) 
színűvé válik. A példaprogramban a PRINT 
INK n; . . . utasítás csak a következő PRINT 
utasításig érvényes, attól kezdve az eredeti 
színekkel fognak megjelenni a karakterek. 
Az eddigiek összefoglalásaképpen nézzük 
a következő programot. A program a keret 
színének megválasztásán és villogtatásán kívül 
egy újabb elemet is tartalmaz. Az A$ karakter- 
lánc (melynek hossza max. 256 karakter lehet) 
karakterei egy megadott , ablakban" jobbról 
balra sétálnak , scrollozódnak"? úgy, hogy 
a karakterláncból egyszerre csak 12 karaktert 
láthatunk. Az , ablak"? mögött a karakterlánc 
elvonul, miközben olvashatóvá válik az A$ 
karakterlánc tartalma. A program végén lévő 
GOTO200 végteleníti a programot. A prog- 
ram felhasználásával , fényújság" készíthető. 


meg.) Mivel a D változó értéke a FOR ciklus- 
ban növekszik, ezért az A$ karakterláncból 
a ciklusmag minden egyes végrehajtásakor 
eggyel több új karakter válik láthatóvá, ill. 
a legrégebben a képernyőn lévő karakter 
, kiscrollozódik" az ablak bal oldalán. A 101-es 
sor valósítja meg az A$ változó tetszőleges 
karakterlánccal való feltöltését. 


199 CLS : LET 658: LET F-A 

181 LET A$z"............ A CIKK 
IROJA VEGEZETUL TOVAEBI JO PROGR 
ARMOZAST ES JO SZORAKOZAST KIVAN 
MINDEN KEGVES OLYAZSOJAMBE! aaa 

182 LET H-LEN A$ 

116 INPUT "SOR "35 

112 IF 542921 THEN GO TŰ 119 

129 INFUT "OSZLÓF ";0 

i22 LET L5s0-415: IF L-31 THEM 60 


Kérdések, feladatok. 

- Miért kellenek esetünkben az A$ karakter- 
lánc elejére és végére a "."-ok? 

- Hogyan lehetne másképp megoldani 
"nem "."-01 beiktatásával, ezt a problémát? 

- Alakítsuk át a 150-es sort úgy, hogy 
a K$ karakterlánc csak egy karaktert tartal- 
mazhasson! HORVÁTH ZOLTÁN 


154 IMHFUT "KERET VILLOGJON? I/H 
1; Ge 
156 IF G$z"I" THEN LET G-si 


169-FOR C€-ü TŰ L: FRINT INK ú; 
FLASH G;AT 5.C5K$: MEXT C 
178 PRINT INK €; FLASH G;AT 5641 


, 05 KÉs" "; IMK I; FLASH F:AK(1 T 
0 1235: FRIMNT INK 0; FLASH G;" " 
s K.$ 


189 FOR C-c0 TOL: FRINT INK 6; 
FLASH G;AT S$2.C5K$: MNEAT C 


A jobbról balra való scrollozást a 200-240 so- 326 ILETÍT "SZÖVEG SZINE 8-7 ";I Ka det TO H-11: LET B$zAs: 
rok végzik. A B$ — A$ D To D.I utasítás [144 INPUT "SZÖVEG VILLOGJON? I/ 219 PRINT INK I; FLASH F;AT 8-1 
a B$ karakterláncnak az AS karakterlánc D. HM"; Fe , 042; B$ 
elemétől a (D--11). eleméig tartó értékét adja. 146 IF F$sz"I" THEM LET F5z1 229 BEEF .G0094, 45 
(Ez pl. a Commodore 64-en a RIGHTS, [ 159 INPUT "KERET EBBOL A KARAKT 238 FAUSE 19 
LEFT$, MID$ függvényekkel valósítható ! ERBOL ALLJON ";K$ 240 MEXT DU 

152 INPUT "KERET SZIMHE? 4-7 ";G 269 GO TO 299 


ENE 


Budapesti székhelyű , A" kate- 
góriájú építőipari vállalat szakirá- 
nyú felsőfokú végzettséggel és ter- 
melésirányítói gyakorlattal rendel- 
kező fiatal szakembereket keres fő- 
építésvezetői munkakörbe. 


Havi jövedelem végzettségtől 
és gyakorlattól függően 8000- 
16 000 Ft között. 


Vidékieknek szükség esetén lakás- 
megoldást tudunk biztosítani. Je- 
lentkezés részletes szakmai életutat 
is tartalmazó önéletrajzzal, cím, te- 
lefon megjelölésével , Főépítés- 
vezető" jeligére az Ötlet szerkesz- 


tőségébe. Pf. 1986 


Hirdessen 
az 


ötlet 


hasábjain! 
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Felajánljuk szabad gépóra-kapaci- 
tásunkat (2000 Ft/óra blokkidő: 
400 Ft/óra terminálidő) 
TPA-1148 számítógép-rendsze- 
rünkre. 


Az igénybe vehető konfigurá- 

ció: 

e központi egység 2 Mbyte opera- 
tív tárral 

e 360 Mbyte mágneslemez háttér- 
tár 

e 2 db mágnesszalag egység 

e 6 db VDT 52100 terminál (2 db 
hardcopy-val) 

e VT 27000 és VT 23000 rend- 
szernyomtatók 

e operációs rendszer: RSX-11M 
3.2 vagy RSX-11MPlus 


Alkotó Ifjúság Egyesülés 
Számítástechnikai Iroda 
Budapest V., Garibaldi u. 2. 
Levélcím: 1519 Bp. Pf. 330. 
Telefon: 112-666, 113-608 
Telex: 22-7272 


ALKOTÓ IFJÚSÁG EGYESÜLÉS 


a LICENC, KNOW-HOW ENGINEERING 


] 


. Az Ötletber 
- továbbra is 


Rovatszerkesztő: HEGYI ISTVÁN 


Programváltozatok 
egy témara (VI. rész) 
és Sinclair Spectrumra 


Azt már láttuk, hogy a Commodore-on és a j 


HT-n hogyan lehet a , kockadobás" ered- 
ményét grafikusan megjeleníteni. Most nézzük, 
hogyan fest ez a Spectrumon! 

A kockát ezúttal is a számítógép fogja dob- 
ni. Esetünkben a véletlenszám a következő 
értékeket veheti fel: I, 2, 3, 4, 5, 6. Azt, hogy 
a számítógép csak ezekből a számokból vá- 
lasszon, az INT(64kRND)--1 függvény való- 
sítja meg. A 64kRND függvény egy X számot 
ad, melyre igaz; 

ÖzXő6 

Az INT függvény az X számnak az egész 
részét veszi, így az X szám a továbbiakban 
csak a következő értékeket veheti fel: 0, I, 
2, 3, 4, 5. Mivel a kockával 0-t sohasem dob- 
hatunk, ezért az X értékét 1-gyel növelnünk 
kell. 

Feladat: valósítsuk meg, hogy az X értéke a 
(22, 38) intervallumba essen! 

Az 1. programban, oszlopdiagramon szem- 
léltetjük a különböző értékű dobások szá- 
mát. 

A 10-90-es sorok a diagram alapvonalát és 
a dobókocka értékeit jelenítik meg. A DIM 


kelg épki üz akéest 4 
AA ÜL 
ad KLÜL sza 
ád kH vá ém 
Sat nzh 


Bő FÜR iz HO 48 2TEP 8 


ra LET nzrrt1 
öl FRINT AT i.Z2;n 


38 NEXT i 

199 LET a$z"KtEKKEKEKKEKZKEKKKEK 
EXEKEKEKKK" 

119 DIM a(6) 

129 FOR jsi TO 259 

138 LET mzINT (6XRMD)41 

143. LET a(m)za(motil: IF aCmiz27 

THEN STOP 

158 PRINT AT m$3.5;7a$ 

168 NEXT j 


TO a(m22 


a (6) utasítással egy hatelemű tömböt de- 
finiáltunk, melynek elemei fogják számlálni a 
különböző értékű dobásokat. Így az (1) értéke 
akkor fog 1-gyel növekedni, ha a dobás ered- 
ménye 1. vége. Az egymás utáni dobások 
a FOR ciklus hatására keletkeznek. 

Kérdés: maximum hányszor dobhat a gép 
jelen programunkban? 

Az eredmény megjelenítését nagyon egy- 
szerűen oldjuk meg. Ebben sokat segít, hogy 
az oszlopdiagramot vízszintesen jelenítjük 
meg. Az a$ karakterlánc elemeiből mindig az 
a(m) értékével megegyező elemet jelenítünk 
meg. Egy-egy dobás eredményét azonnal meg- 
jelenítjük, így a változásokat folyamatosan 


követhetjük. 
1 £ 44 kö 3 
6€£ 42 ££ 6. € 
4 a : 
5 46845 c 


A kockadobás után készítsük el a Spectru- 
mon is a már jól ismert grafikon (1. 42. részt), 
mely 1960-tól 1975-ig 5, 1976-tól 1983-ig 
évenként mutatja a lakosság által megtakarí- 
tott pénz összegét. Az előbbi grafikon ábrázo- 
lásával ellentétben, most valóban oszlopgrafi- 
kont készítsünk. Itt már valamivel bonyolul- 
tabbá válik a megjelenítés, mivel egy oszlop 
megjelenítéséhez szükséges karaktereknek füg- 
gőlegesen kell egymáshoz illeszkedniük. 

A 10-40-es sorok a diagram alakját raj- 
zolják meg. Az adatokat adatmezőben raktá- 
rozzuk. A program tulajdonképpen két egy- 


18 REM £FROGRAM z4 
za C€L5 

38 FLOT 16.18: 
49 PRINT AT 28.§8; 


URAUH 228.A 
"OSZLOP DIRGR 


34 FOR J-1 TO 12 

69 RERU A.E.C 

70 FOR G-A TŰ C STEP -1 

89 PRINT AT G.B:CHR$ 138 

sa MEAT G 

198 HEAT J 

119 DATA 18.5.14.18.18.12.18.15 
:7.18.28.6.18. 217. 158.22,5.18.25 
,.3.18.24.8.18.25.18.18.26.7,18.2 
7.8.18.28.4 


másba ágyazott FOR ciklusból áll. A külső 
ciklus ciklusváltozója az oszlopokat (éveket) 
számlálja, miközben az adatmezőből a READ 
utasítás feltölti az A, B, C változókat a diag- 
ram egy oszlopára jellemző adatokkal. Az A 
változó az oszlop talppontjának Y, a B vál- 
tozó X koordinátájának értékét veszi fel. 
A C változó az oszlop legfelső karaktere Y 
koordinátájának értékét veszi fel. Ha jól meg- 
figyeljük az A változó értéke mindig nagyobb 
mint a C változó értéke. Miért? 


A belső ciklus egy oszlop teljes kirajzolását 
végzi. A CHR$ 138-as karakterből áll az osz- 
lop. Ez egy függőlegesen kettéosztott négyzet, 
melynek a bal oldali fele sötétre van festve. 


Diagramunk szépnek talán mondható, de 
pontosnak semmi esetre sem. Mivel a leg- 
kisebb oszlop elemünk a karakter volt, ezért 
az ábrázolni kívánt értéket a legközelebbi 
egészre kerekítettük. 


Próbáljuk meg pontosítani a grafikonunkat. 
Az egész résznek ábrázolását a jelenlegi 
programunk is elvégezte, tehát csak a tört- 
részek ábrázolását megvalósító programrész- 
szel kell azt kiegészíteni. Egy lehetséges meg- 
oldás lehet a következő. Használjuk ki azt, 
hogy lehetőségünk van 21 darab saját karakter 
definiálására. Definiálunk olyan karaktereket, 
melyek a tizedeknek megfelelően töltik ki a 
karaktert. Az első karakterek (1-8) 4 pont 
szélesen fokozatosan besötétedő négyzet. 


iő REM 4FROGRAM 34 

28 ÜLS 

39 FOR N:sg TO 71 

48 RERU K: FÜKE USR "A"HN.K 

39 NEXT N 

698 PLOT 16.18: DRAW 229.9 

79 FRINT AT 28.85 "OSZLOP DIRGR 


89 FOR Jzi TU 12 

98 RERD A.E.C.D 

109 FOR G5A TO C STEP -1 

119 FRINT AT G.B:CHR$ 138 

129 NEXT G 

139 PRINT AT G.B:CHR$ (1444D) 
149 NEXT J 

REM 

160 REM USR KARAKTER ARDRTOK 
179 REM 


189 DATA 9.9.9.B3.8.B.9.9 

199 DATA B.6.B.B.B.8. 9.249 

209 DATA 6.B.9.9.0.6. 248249 
219 DATA B.9.9.9. 9.249, 249 , 2489 
s ájááéáktástáss 8.3... 7.249, 249, 248, 24 


239 DATA 8.9. 0, 249248, 249 , 249 , 
248 DATA 6.3.249 249, 249243 ,24 
250 DRTA 8.249,249 248, 249, 249 , 
269. DATA 249.249.,249, 248, 249, 24 


9.249, 249 
278 REM 
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149 REM DIAGRAM ADATOK 
159 REM 

169 DATA 5.2.198,.3.2.15.5.6.28.6 
.21.5.7.22.6.6.23.7.2.24.4.7 25: 
4.2.26.5.3.2754.7.28.6.7 


289 REM DIAGRAM ADATOK 
299 REM 

399 DATA 198.5.14.9.18.19.12.3.1 
8, 15. 7. 2: 13.29. 6.B. 18, vat érT 18. 
22.,5.2.18.23.4,3.18.24.9.5.138.25 
"19.3.18.26.8.5.18.27.9.5.18.28. 
5.2 


"E 

A definiált új karakterek adatait szintén adat- ! Ez a program egy oszlop kirajzolásához már k 13 sát 
mezőben helyezzük el, és azokat a 30-50-es Í csak két adatot olvas be a külső ciklusban. úg azdjek 4 s 
sorok helyezik el a számítógép UDG memória- Í A B változóba helyezi az oszlop talppontjának SZSSEMASO] 
területére. A gép kikapcsolásáig az újonnan ! X koordinátáját, a C változóba pedig az osz- Bey ds 
definiált karakterek állandóan a rendelkezé- [ lop , magasságát". A 60-as sorban történika [ KÖRCIRGRHH 1 sa 7a 
sünkre állnak. A további programjainkban ! grafikon nagyítása: C"C2. A 70-es sorban az 3 1z am 
még felhasználjuk őket. A változó felveszi az egész rész értékét, míg a a 2 a 23 

A 3. program az egész résznek ábrázolásában Í D változó a törtrész értékét. Innentől a végre- ez Fzlsz zt 
teljesen követi az előző programot. A külső ] hajtás a már ismert módon történik. 2) 4 28; sZ 


ciklus most egy adattal többet olvas be és 
helyezi azt el a D változóban. A belső cik- 
lus az egész részeknek megfelelő hosszúságú 
oszlopot rajzol. A belső ciklus végén az oszlop 
tetejére kerül a tört résznek megfelelő ka- 
rakter, melyet a 130-as sor hajt . végre. 
Megjegyezzük, hogy ez a program sem ad 
teljesen pontos megoldást. Miért? 


Az 5. program már jól kezelhető és más 
adatokkal is könnyen futtatható. A talppontok 
X koordinátájának értéke a külső ciklusban 
1-gyel növelődik. Így az adatmező csak az 
oszlopok magasságát tartalmazza. Jelen. ese- 
tünkben az oszlop magassága maximum 9 le- 
het. Ha ez nem elegendő, módosítanunk kell a 
programunkon. 


A kördiagrammal jól szemléltethető például 
a nemzeti jövedelem százalékos megoszlása. 


ís REM AFRUGRAM EX 
za ÜLS 
REM 
REM 4KOR KIRRJZOLASAK 


REM . 
LET 8-4: LET OS5g: LET TA: 


28 rápá 4FKUL: ki 54 ez Wz22g fSÖE 

za CLS 8 79 CIRCLE 72.396, 
39 PLOT 16.18: ORAM 2298 gt salt 
Za ÉRINT NTESALÉL KOSZLODÉOLAÉŐ 89 PRINT AT 19.4;"KORDIAGRAM 
3. 39 GO SUB W 

AM 

5 198 REM 

39 LET Br4 114 REM XADATOK BEOLYASASAK 
69 FOR Js1 TO 24 eeeezől 
79 READ C: LET CsCk2: LET BzBt SE KEGT SAGÁTOK BAN "rŰl 


; 2. 149 LET Sz8$1: LET OSZOSrA 
edz E otjásakllésáttásaat dá ááátágüléké s 158 PRINT AT 345/1958." "AP 
ÖSZLÖF DIAGR 99 FOR Gsi8 TO 18-A STEP -1 RINT AT 3415.265"4 


IF 082199 THEN G0 TŰ 269 


199 IF Csg THEN GO TO 129 mÜS : 

118 PRINT AT G.E;CHR$ 138 ta AL pálá zó oz 

139 FRINT AT G.E:CHR$ (14441) 299 REM $RAJZOLÓ SZUBRUTINK 
Természetesen a diagram adatmezeje így 149 NEAT J 
meglehetősen megnövekedett, és a kódolása is 169 REM DIAGRAM ADATOK Z2193REM 
bonyolódott. Végezze a kódolást is a számító- 580 BATH 2.9,9.0.0,3.2.9.8,0,0 229 LET AzT/-/5S3XFI 

:0.B.8. B. rö ú ő a 
EZÉ. GB-BYB ÉS. 7 SETA LAT RK 


2.5.3.4.7.6.7 


249 PLOT 72.96: DRAW X.Y 
259 RETURN 
5 2EG PRINT AT 21.55"EZ MAR TOBB 
29 ELS salt jésúö bó; MINT 199 A !" zene Ms 
0 279 PRINT AT 345.19585" — ";199- 
38 PLOT 16.18: DRAM 229.8 tn A 17. segg TK cseh 4b-VánNT 
46 PRIMT AT 28.8; "OSZLOP DIAGR Kérdés : miért van szükség a 100-as sorra? 289 STOP , 


Ha a 70-es sorban lévő READ C helyére LET 
C—-8 RND-t írunk, akkor az oszlopok ma- 


FOR J5s1 TO 12 


60 RERD B.C: LET CsCiz gassága véletlenszerűen képződik. Természete- ! A 100 százalékot a 70 TRE: jel 
78 LET AZINT C: LET D-INT (104 sen ekkor az adatmezőre nincs szükségünk. ! teljes kör jeleníti, ot misdkeagetol mm zgjéoss 
(C-INT C27 Feladat: ez utóbbi programváltozatot fel- ( kérdezi az adatokat, s azt a képernyő jobb 


89 FOR G518 TD 18-A STEP -1 


1 írj ké 
99 PRINT AT G,B;CHR$ 198 használva írjuk meg a Commodore-ra már 


oldalán kijelzi. A körcikkek megjelenítését a 


199 NEXT G ismert bombázóprogramot! 220-250-ig tartó szubrutin végzi. Ha a be- 
119 PRINT AT G.BICHR6 (1444D) Definiáljunk repülő- és bombakaraktert! adott százalékok összege meghaladja a 100 szá- 
129 NEXT J Ha már a diagramoknál tartunk, nézzünk ! zalékot, a program figyelmeztet bennünket. 

139 REM egy másfajta diagramot, a kördiagramot. HORVÁTH ZOLTÁN 


INTENZÍV NYELVVIZSGA-ELŐKÉSZÍTŐK 


kiscsoportos, 


1064 Budapest, Izabella u. 83. Tel.: 335-185 
szituatív oktatás 


SZ 


angol e francia e német e 


beszédcentrikus, 


10 hét, heti 4x3 óra, november 18-tól. 


EREDETI VIDEÓ- ÉS HANGANYAG! 
45 Ft/óra 


Szintfelmérés és beiratkozás: 

október 28-tól november 15-ig 16-19 óra 
között 

8-15 óráig 335-185 e 15—23 óráig 662-257 
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— Számítástechnika 


. Az Ötletben 
- továbbra is . 


b. úg allt 


BASIC ! 


1 Nek 1.88 


] 
! 


a gl HILL) 


Rovatszerkesztő: 


esse ásssezát szült Gldsáttásss aázzaüt 


Vg 
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HEGYI ISTVÁN 


Programváltozatok 
egy témara (VII. rész) 


Sorozatunk korábbi részében egy, a billen- 
tyűzet használatát gyakoroltató, oktatóprog- 
ramot, annak változatait mutattuk be. Ezek- 
nek a programoknak az értelmezésében és 
hasonló jellegű oktatóprogramok készítésé- 
ben segít a program nagyvonalú, csak a prog- 
ramrészeket feltüntető folyamat ábrája. 


BE: , 3 
KÉRDESEK SZAMA 


" KERDES 


A folyamatábra a tervezés és a dokumen- 
tálás egyik "eszköze. Segítségével a program 
szerkezetét, a programrészek kapcsolatát tud- 
juk szemléletessé, áttekinthetővé tenni. Nem 
az egyetlen eszköz elképzeléseink és azok 
megvalósítási módjának leírására, de talán a 
legpraktikusabb. 

- Milyen segítséget ad a folyamatábra a 
felhasználónak, a program alkalmazójának? 


Nincs tökéletes program. Alkalmazás során 
új igények jelentkeznek, és rejtett hibák jöhet- 
nek elő. Ilyenkor a programot módosítani, 
javítani kell. Ebben a munkában még a prog- 
ram készítőjének is jól jön, ha van dokumen- 
táció a programhoz. Ez, vagy ennek része lehet 
a program folyamatábrája. 

Mint gyakorló tanár egy kicsit , hazabeszé- 
lek" akkor, amikor a folyamatábra készíté- 
sének hasznáról szólok. Könnyebb egy dolgo- 
zatot egy versenyfeladatot elbírálni, ha van 
folyamatábra is a program mellett, esetleg 
magyarázó szöveg, amiből világosan kiderül, 
hogy mit, hogyan szeretett volna megoldani a 
program alkotója. A program esetleges hibáit 
ilyenkor az időhiány számlájára tudom írni 
a program értékelésekor. 

- Mite jó a folyamatábra a program készí- 
tőjének ? 

A hibák felderítésén kívül a program tel- 
jességének vizsgálatát éppúgy segíti, mint a 
program tesztelését. 

Gondoltunk mindenre a program készíté- 
sekor? Minden lehetséges esetre kipróbáltuk 
a programot? Ezekre a kérdésekre könnyebb 
a válasz, ha van folyamatábránk. 

— Segít a folyamatábra a program tervezé- 
sében is? 

Ugy gondolom - most, hogy már kész van 
- egy újabb oktatóprogram megírása nem 
lesz gond. 

A programtervezés első fázisában, amikor 
még csak ismerkedünk a feladattal, nem biz- 
tos, hogy folyamatábra készítésével kezdjük 
a munkát. Részfeladatok fogalmazódnak meg 
bennünk, ötletek közül válogatunk. Ábrákat 
készítünk, pontokba szedjük gondolatainkat. 
A folyamatábra készítés csak az egyik igen, de 
jól használható eszköz gondolataink rendsze- 
rezéséhez. 

e Készítsünk programot, amely a BASIC 
alapszavak és jelek jelentésének és alkalmazá- 
sának tanulását segíti! 

Ez tulajdonképpen két feladat. Ha azt tud- 
juk, hogy a NEW szó azt jelenti ÚJ, attól még 
nem leszünk okosabbak. Azt jó tudni, hogy ez 
a parancs törli a programot. Igaz, lehetne azt 
is kérdezni: mit csinál a NEW parancs. A vá- 


lasz lehet: TÖRÖL vagy TÖRLI A PROGRA- 
MOT. Honnan tudja a helyes választ az, aki 
tanulni akar a program segítségével, hogy mit 
gépeljen be? Az sem egyszerű feladat, ha a 
szavak magyar jelentésére kérdezünk. A POKE 
szó jelentése az egyik BASIC könyv szerint 
BÖK. Nekem jobban tetszik a HELYEZ 
szó. 

Miután megoldottuk az egyszerűbbnek lát- 
szó feladatot, amikor a BASIC szóval adható 
meg a válasz, visszatérünk az előző problé- 
mára. 

Először kérdezzünk a BASIC szaavakra 
jelekre. A válasz helyességét könnyebb meg- 
állapítani ebben az esetben, és ezért a progra- 
munk is egyszerűbb lesz. 

A program azt kérdezi majd, hogy milyen 
utasításszó, parancs, vagy milyen jel szüksé- 
ges valamilyen programozási feladat megoldá- 
sához. Az, hogy a válaszokat pontosan ad- 
juk-e meg, vagy nem, csaknem lényegtelen. 
Egy ügyes táblázat segítségével pótolhatjuk 
hiányos ismereteinket. Utánanézhetünk, hogy 
hogyan kell beírnunk a programba egy utasí- 
tást, vagy függvényt. Igazi haszon abból szár- 
mazik, hogy a program azt kérdezi amit a 
számítógépünk a BASIC nyelv segítségével 
végrehajt. Ezeknek a rögzítése a fontosabb. 
Azt kell inkább tudni, hogy egy adatot be le- 
het olvasni a programba, mint azt, hogy léte- 
zik az INPUT utasítás. 

A kérdéseket és a kérdésekhez tartozó vála- 
szokat a DATA adatmezőbe helyeztük el. 
Az összetartozó kérdést és feleletet egymás 
után. Így kell beírni az újabb kérdéseket és a 
kérdésekhez tartozó válaszokat is, ha bővíteni 
akarjuk a választékot. 

Az előző oktatóprogramunk változatait át- 
tekintve ez a megoldás látszik a legegyszerűbb- 
nek, ugyanakkor a bővítése is megoldható. 
A kérdéseket most nem tudjuk előállítani 
programmal mint azt az előző programban 
tettük a betűk kiírásakor. Karakterláncból is 
nehéz lenne kikeresni a kiírandó kérdést, ha 
abban több kérdést helyeznénk el. 

A KÉRDÉS KIVÁLASZTÁS szubrutint 
a DATA szerkezetének megfelelően alakítot- 
tuk ki. Itt használjuk fel a DATA VÉGE jel- 
zést is. Előnye ennek a megoldásnak az, hogy 
egy újabb kérdés-felelet beírásakor a prog- 
ram többi részét nem kell változtatnunk. Arra 
kell csak ügyelni, hogy a DATA VÉGE jelzés 
elé kerüljenek az újabb adatok. 

A VÁLASZ BEOLVASÁSA programrészt 
a program jellegének megfelelően módosítot- 
tuk. Háromszori sikertelen próbálkozás után 
a program kiírja a helyes választ. 

A V—-(V AND 3) utasítás hatására a V vál- 
tozó értéke 0 lesz, ha a V értéke előzőleg 4 
volt, egyébként nem változik. Ezzel a logikai 
művelettel egy IF utasítást helyettesítettünk. 

Hogyan s, működik" az AND művelet? 
Írjuk fel V és 3 értékét binárisan, és végezzük 
a logikai ÉS műveletet bitenként! Ez történik 
a programban is. (Csak az utolsó négy bitet 
írjuk le.) 


VzZ 0010 Vz4 0100 
3 0011 3 0011 
VAND3 0010 VAND3 0000 


A TÉVES szubrutinban az ON GOTO 
utasítással választjuk ki a helytelen válaszra 
utaló megjegyzést. Az R1 változó értéke az 
előző kiírás sorszámát őrzi. Ezt összehason- 
líthatjuk R értékével, hogy ne ismétlődjön a 
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kiírt szöveg (720-as sor). Egyenlőség esetén a 
következő PRINT utasítást hajtja végre a 
program. Ha R —4, akkor az elsőt. Az ON 
GOTO utasítás sorszámlistájából az utolsó 
sorszámot el is hagyhatjuk. 

R értékének megörzése a szubrutinból ki- 
lépve a GOSUB 700 után történik. Így csak 
egyszer kell az RI—R utasítást a programba 
írni. 

A JÓ szubrutinban a válasz elfogadását 
jelző kiírások közül az IF utasítással választ- 
juk ki a J értékhez tartozót. A J—(J AND3) 
utasításnak ugyanaz a szerepe, mint a próbál- 
kozások számlálásánál. A KIÉRTÉKELÉS 
során a helyes válaszok és a kérdések arányát 
adjuk meg százalékosan. 

A programot úgy írtuk :neg, hogy az futtat- 
ható legyen a HT, a PRIMO és a COMMO- 
DORE gépeken egyaránt. A SPECTRUM és 
ZX gépek esetében csak a függvények beírása- 
kor kell vigyázni. 


219 REM --—— BASIC ALAFSZAVAK GYAKORLASA --- 
220 H-g: INPUT"KERDESEK SZAMA";N 

230 REM --- FOPROGRAMRESZ --- 

240 FOR I51 TON 

259 GOSUB 499:REM -2 KERDES KIVALASZTAS 

269 GOSUB 5989:REM -2 VALASZ BEOLVASAS 


NEXT 
289 GOSUB 699:REM -5 ERTEKELES 
END 


498 REM --- KERDES KIVALASZTAS -—-- 

419 LE2ZOKRND(A) 

429 FOR Jz1 TOL 

4340 READ V$.K$ 

IF V$-"k" THEN RESTORE:GOTO 439 

450 NEXT:PRINT 4V$:RETURN 

599 REM --- VALASZ BEOLVASASA --- 

519 v:g 

529 VzV4ri:Vz(Y AND 39:IF VC3G THEN 549 

539 PRINT "HELYES VALASZ: "K$:GOTO 579 
INPUT "BASIC MEGFELELOJE" ;X$ 

IF 4$0K$ THEN GOSUB 7909:RizR:GOTO 529 
569 GOSUB 899 

579 RETURN 

600 REM s ERTEKELES mee 

619 PRINT "A KERDESEK"INT(H/NX109) ; 

629 PRINT " 4-T TUDTAD MEGYALASZOLNI" 

639 END 

V80-IREM ep TÉVES. eses 

718 RzsINTC4AKRND(B9)41 

IF R-R1 THEN R-Rt1 

739 ON R GOTO 749.,759,769.779.748 

749 PRINT "HIBAS" :Rz1:RETURN 

758 PRINT "TEVES";:RETURN 

769 PRINT "ELYETETTED" :RETURN 

778 PRINT "EZ NEM SIKERÜLT" : RETURN 

899 REM --- JO 
819 JzINT(C4£RND(G) ) : HzHt1 

IF J:J1 THEN JzrJ41:JzCJ AND 3) 
IF JG THEN PRINT "HELYES" " 
IF Jz1 THEN PRINT "JO" 

IF J5:2 THEN PRINT "UGYES VAGY" 
IF J53 THEN PRINT "TALALT" 

899 J1zJ:RETURN 

1999 REM --- BASIC-ALAPSZAVAK --- 


READY. 


A DATA-ba először azokat az utasításokat, 
parancsokat, függvényeket és műveleteket 
írtuk, amelyek csaknem minden BASIC: vál- 
tozatban szerepelnek. Ez a BASIC nyelv 
magja. 


--- BASIC ALAPSZAVAK --- 

—en PARANCSOK -—-— 

1928 DATA PROGRAM INDITAS;RUN 

1034 DATA PROGRAM TOÖRLESE. NEW 

1949 DATA PROGRAM KIIRASA,LIST 

f ——e UTASITASSZAVAK -—-- 

2919 DATA ERTEKADAS.LET 

202 DATA BEOLYASAS BILLENTYUZETRŐL ; INPUT 
2939 DATA KIIRATAS, PRINT, CIKLUS VEGE, NEXT 
2049 DATA ADATOK ELHELYEZESE A PROGRAMBAN, DATA 
2959 DATA BEOLVASAS DATA-BOL READ 

2969 DATA CIKLUS UTASITAS SZAVAI,FOR TO STEP 
2879 DATA FELTETELES ELAGAZAS SZAVAI:;IF THEN 
2986 DATA TÜMBÜK DEFINIALAS.DIM 

2098 DATA PROGRAM VEGE,END 

2109 DATA SZUEBRUTIN HIVAS. GOSUB 

2119 DATA FELTETLEN UGRAS.GOTO 

2129 DATA MEMORIRREKESZBE ERTEK BEIRAS.FOKE 
2130 DATA MEGJEGYZES:REM 

BEOLYASAS Fi DATA ELEJERÜL , RESTÜRE 
2159 DATA VISSZATERES A SZUBRUTINBOL:RETURN 
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2169 DATA PROGRAM MEGALLITASA. STOP 

30998 REM -—- FUGGYENYEI 

3918 DATA ABSZOLUTERTEK . ABS; EGESZRESZ; INT 

3929 DATA KOSZINUSZ, COS, ELŐJEL , SGN 

3939 DATA EXPONENCIALIS FUGGYENY ,EXP 

3949 DATA MEMORIAREKESZBŐL KIOLYASAS,PEEK 

3959 DATA VELETLENSZAM,RND, TABULATOR , TAB 

3969 DATA TANGENS; TAN, ARKUSZTANGENS , ATN 

4099 REM -— KARAKTERLANC-FUGGYENYEK --— 

4918 DATA KARAKTER KODJABOL KARAKTER .CHR$ 

4029 DATA LANCOLAS;t 

5909 REM --- ARITMETIKAI MŰVELETEK --- 

5918 DATA OSSZERDAS:;t,KIVONAS, - 

5829 DATA SZORZAS, 4, OSZTAS , / 

6999 REM --- LOGIKAI MŰVELETEK -——- 

6919 DATA TAGADAS, NOT , ES , AND , VAGY , OR 

7090 REM --- RELACIOJELEK -—-- 

7919 DATA EGYENLO, z,.NEM EGYENLO, €5 

7929 DATA KISEBB EGYENLO, Cs.KISEBB,C 

zs DATA NAGYOBB" EGYENLO, 27 , NAGYOBB, 2 
9999 REM --- DATA VEGE --—- 

29819 DATA 4.4 


READY. 


e Egészítsük ki programunkat azokkal az 
parancsokkal, utasításokkal és függvények- 
kel, amiket a különböző BASIC változatok 
ismernek! Ezek ismeretében, az adott gépen 
szebbé, sok esetben egyszerűbbé tehetjük 
azokat a programokat, amelyeket úgy írtunk 
meg, hogy minden gépen futtatható legyen. 

Kiegészítés a Commodore 64-re: 


19999 REM -—- KIEGESZITES A COMMODORE-64-RE --- 
19919 REM -—— PARANCSOK --- 
FOLYTATASA , CONT 


9109 REM. UTASITASOK — 
19118 DATA ADATALLOMANY MEGNYITAS, OPEN 
10129 DATA KARAKTER BEOLVASAS;,GET 
19139 DATA ADATALLOMANY LEZARASA, CLOSE 
109140 DATA VALTOZOK TÖRLESE,CLR 
19159 DATA ADATALLOMANY KIJELOLES, jer 
19160 DATA FUGGYENY mg DEF FN 
19170 szá ADATKI IRAS AZ ADATALLOMANYBA,PRINTH 
19189 DATA ADATBEOLVASAS AZ ADATALLOMANYBÓL ; INPUTH 
19199 DATA EGY BYTE BEOLVASASA AZ ADATALLOMANYBÓL , GETE 
10299 DATA PROGRAM FELFUGGESZTESE EGY ESEMENYIG,/WRAIT 
as DATA GEPI RUTIN edzgpobe dog 
19319 DATA SZABAD MEMORIATERÜLET;,FRE 
APU LOGARITMUS, LOG 


19359 DATA ELSO KARAKTER KODJA,ASC 
19369 DATA SZOKOZ ELOALLITAS, SFC 
19379 DATA NUMERIKUS ADATBOL KARAKTERLANC, STR$ 
19389 DATA KARAKTERLANC ELEJE, LEFT$ 
19399 DATA KARAKTERLANC VEGE, RIGHT$ 
109498 DATA KARAKTERLANC KOZEPE,MID$ 
19410 DATA KARAKTERLANCBOL SZAM, VAL 
REM -——- DATA VEGE -——— 
29919 DATA 4£.§k 


READY. 
Kiegészítés a HT-re: 


19999 REM —- KIEGESZITES ! A HT-19802-RE --- 
10919 REM --—— PARANCSOK — 
19929 DATA PROGRAM FOL OLYTATASA, CONT 
r-rsz alla PROGRAM BETOLTES, CLORD 
0 DATA PROGRAM KIVITEL , CSAVE 


19878 DATA PROGRAMSOR JAVITASA,EDIT 
mese DATA UJRASORSZAMOZAS , RE 

9985 DATA NYOMKOVETES BEKAPCSOLASA, TRON 
19998 DATA MONITOR HIVAS, SYSTEM 
19995 DATA NYOMKOVETES KIKAPCSOLASA. TROFF 
10199 REM -—- UTASITASOK --- 
19118 DATA ELSO VELETLENSZAM , RANDOM 
19128 DATA PONT TORLESE, RESET 


19159 DATA DUPLAPONTOSSAGI VALTOZOK KIJELOLESE, DEFDBL 
10169 DATA EGESZTIPUSU VALTOZOK VAL NESEEN, KŐ DEF INT 

19179 DATA EGYSZERES PONTOSSAGU VALTOZOK KIJELOLESE, DEFSNG 
19189 DATA KARAKTERLANC TIPUSU VALTOZOK KI JELOLESE , DEFSTR 
10199 obb PONT KIVILAGITASA, SET 

10296 DATA HIBA ELOIDEZESE, ERROR 

10219 DATA teregeti eni 

szd DATA KIIRAS ADOTT UMBAN , PRINTUSING 

39 DATA KIIRAS HELYÉT JELÖLÉSSEL , PRINTE 

18388 REM -—— FUGGVENYEK 

19319 ség SZABAD MEMORTATERULET KARAKTERLANCOKNAK , FRE 
19320 DATA E ALAPU LOGARITMUS, LOG 

19339 DATA KARAKTER HELYE,POS 

10349 DATA GEPI FUGGYENYRUTIN HIVAS,USR 

Hoszzsi DATA ELSO KARAKTER KODJA, ASC 

9369 DATA SZOKOZ ELOALLITAS.SPC 

19370 DATA NUMERIKUS ADATBÓL ris ő sgdgatááló STR$ 

19389 DATA KARAKTERLANC ELEJE,LEF 

19399 DATA KARAKTERLANC VEGE, RIGHTS 

19499 DATA kását piek eggyé een 

19418 DATA KARAKTERLANCBOÓL S; 

ese DATA ATÁLAKITAS DUPLA PONTOSSAGURA, CDBL 

9439 DATA ATALAKITAS EGESZ TIPUSURA,CINT 

10440 DATA HELYFOGLALAS KARAKTERLANCOKNAK , CLERR 

19458 DATA ATALAKITAS EGYSZERES PONTOSSAGURA, CSNG 
19460 DATA UTOLSO HIBA KODJA,ERR 

19479 DATA UTOLSO HIBA SORSZAMA, ERL 

19489 DATA CSONKITAS EGESZRE.FIX 

19498 DATA KARAKTER BEOLVASA, INKEV$§ 

105909 DATA SZABAD MEMORIATERÜLET , MEM 

19519 DATA KEPPONT VIZSGALATA,POINT 

19520. DATA AZONOS KARAKTEREKBOL KARAKTERSOROZAT, STRING$ 
10530 DATA GEPI SZUBRUTIN HIVASA,USR 

10549 DATA VALTOZO KEZDOCIME. VARPTR 

rem [DATA VEGE ——- 

20910 DATA 4.4 


READY. 


e A feleletkiválasztásos kérdések megvála- 
szolása ugyanúgy egyértelmű, mint az előző 
programunk kérdései. Ilyenek voltak a TV- 
BASIC-vizsgán is. Írjunk olyan programot 
amivel vizsgáztatni lehet! 

Az előző programot csak azért nem hasz- 
nálhatjuk változtatás nélkül, mert a kérdések 
nem mindig férnek el egy DATA sorban. 

Helyezzük el a kérdéseket a V$, a válaszo- 
kat a K$ vektorba. Az összeláncolással azt 
is meg tudtuk oldani, hogy a programsorok 
rövidek legyenek. (A cikkben így jobban el- 
helyezhető a program listája.) 

A vektorok utolsó elemeinek értéke a xk 
karakter. Ennek a kérdés kiválasztásakor van 
szerepe. 


119 V$(C1)5"53. HANYSZOR HAJTODIK VEGRE " 

111 V$(1)SV$C1). 4"A KÖVETKEZO CIKLUS?FOR Is9g TO 5 STEP 1?" 
112 K$(1)z"1-SZER" 

113 V$(2)z"61. MI JELENIK MEG AZ ALABBI PROGRAM FUTASAKOR?" 
114 V$(2)zV$(2)4"5 FOR Azi TO 5?" 

115 V$(2)zV$(2)4"6 ACADJ-A?TT éz gglér A(CAJ?B NEXT A?" 

116 V$(2)zV$(224" 1. ARRARARRRARA?2. SZINTAKTIKUS HIBA?" 

117 V$(2)sV$(294"3. 1 172 273 374 495 S2":Ks(29m"3" 

209 VSCZIz"K":KS(Z)z 


READY. 


A KÉRDÉS KIVÁLASZTÁS szubrutin- 
ban a VS és a K$ vektor elemeit a V$ és a K$ 
változókba helyezzük, hogy a többi szubru- 
tint ne kelljen változtatnunk. Az utolsó elem- 
hez érve — aminek az értéke a - karakter -, 
a keresést a vektor első elemétől folytatjuk. 


499 REM --- KERDES KIVALASZTAS ——- 
419 L-20KRND(f? 

429 P:-1:FOR J5i TOL 

439 VézV$(P):K$-K$(P) 

449 IF V$z"k" THEN P5s1:GOTO 439 
450 PzP-41:NEXT:GOSUB 999 :RETURN 


READY. 


A kérdés egy karakterváltozóban van. Ha 
ezt egyszerűen egy PRINT utasítással kiírat- 
juk, nem tudunk eligazodni rajta. A KÉRDÉS 
KIÍRÁS szubrutinnal sorokra bontjuk és így 
íratjuk ki. 

A kérdés végén kérdőjel van. Ekkor min- 
denképpen sort kell emelni. Ezért választot- 
tuk a kérdőjelet a soremelések vezérlésére. 


999 REM --- KERDES KIIRAS ——— 

919 T$z"":FOR Az1 TO LEM(V$? 

929 ü$-MID$(V$E. A. 1? 

a34 IF 0$€2"?" THEN T$zT$tG$:GÖTO 950 


948 PRINT T$:T$-"" 
358 NEXT : RETURN 


READY. 


A programba csak két kérdést írtunk. Több 
kérdés esetén a DIM utasítással biztosítanunk 
kell a vektorok helyét. A HT-n még egy 
CLEAR utasításra is szükség van a karakter- 
láncok számára szükséges hely lefoglalására. 
A Spectrum-on a MID$ függvényt kell he- 
lyettesíteni. 

Az első kérdéshez nem adtuk meg a vála- 
szokat. Aki nem ismeri a programot az biztos, 
hogy nehezen fogja kitalálni, mit kell begépelni 
helyes válaszként. Lehet olyan kérdéseket 
szerkeszteni, hogy ez egyértelmű legyen. 

A második kérdés megválaszolásakor bizo- 
nyára lesznek olyanok, akik ki is akarják 
próbálni, hogy azt csinálja-e a program, amit 
a helyes válaszban megadtunk,. A Commodore 
gépeken ez nagyon egyszerű, mivel a program 
a képernyőn van. A próbaprogram beírása 
nem okoz gondot, miután leállítottuk oktató- 
programunkat. 

DUSZA ÁRPÁD 


. Számítástechnika 


860 IF Jz3 THEN PRINT "TALALT" 

889 J1zJ:RETURN 

990 REM -——- KERDES-VALASZ KIIRAS -—- 
3292 Mz1:PRINT"KERDESEK-VALASZOK" 


A : 5304 RERD V$,K$ 

Z 1 et en 996 IF Vsz"k" THEN 929 

nú fi új ú 908 PRINT:PRINT"LEGYEN EZ A KERDES(I/N)" 
4 7 bbi al : 


919 PRINT K$" - "V$ 

912 GET Aa$:IF G$O"I" AND €$C2"N" THEN 912 
914 IF 0$z"N" THEN 994 

916 K$(M):K$:V$M)-v$ 

918 MzMt1:GOTO 994 


il pls 920 REM --- UJ KERDESEK --- 
ni af pg hő 922 PRINT "UJABB KERDES, VAGY VEGECUZVI" 
924 GET 0$:IF O$C"U" AND ú$0"V" THEN 924 


926 IF O$z"V" THEN MzM-1:RETURN 
Si hr 111 Í 928 INPUT"KERDES" ; K$(M) : INPUT "VALASZ" ; V$4(M) 
939 MzMt1:GOTO 922 
949 REM -—-—- VALASZ MODOSITASA --- 
942 PRINT "MODOSITOD A VALASZT?KI/ND" 
! ] 944 GET G$:IF A$O"I" AND A$CI"N" THEN 944 


946 IF d$-"N" THEN 959 
948 INPUT "UJ VALASZ" ;V$(L? 
958 RETURN 


2999 REM --- UTASITASSZAVAK --- 
2919 DATA ERTEKRDAS.LET 
a A f üz 2929 DATA BEOLVASAS BILLENTYUZETRŐL , INPUT 
/i 2939 DATA KIIRATAS, PRINT, CIKLUS VEGE, NEXT 
4 Hi" by 2949 DATA ADATOK ELHELYEZESE A PROGRAMBAN, DATA 
] 1 van Y 4 § ? 2958 DATA BEOLYASAS DATA-BOL , READ 
808 - - - tettet ttttt b 2969 DATA CIKLUS UTRSITAS SZAVAI,FOR TO STEP 
2979 DATA FELTETELES rrászén pg ergéjaláoj ás THEN 
2089 DATA TOMBOK DEFINIALAS;DIM 
Rovatszerkesztő: HEGYI elési 2999 DATA PROGRAM VEGE, END 

z 2198 DATA SZUBRUTIN HIVAS, GOSUB 
ún 3 2119 DATA FELTETLEN UGRAS, GOTO 
2129 DRTA MEMORIAREKESZBE ERTEK BEIRAS,POKE 
2139 DATA MEGJEGYZES,REM 


2149 DATA BEOLVYASAS A DATA ELEJERÜL , RESTORE 
vá 2150 DATA VISSZATERES A SZUBRUTINBOL , RETURN 
2169 DATA PROGRAM MEGALLITASA, STOP 


3909 REM --- FUGGYENYEK --- 
3019 DATA ABSZOLUTERTEK , ABS, EGESZRESZ , INT 


z 3029 DATA. KOSZINUSZ , COS , ELOJEL , SGN 
resz 3939 DATA EXPONENCIALIS FUGGVENY,EXP 
" 3049 DATA MEMORIRREKESZBOL KIOLVASAS, PEEK 
3059 DATA VELETLENSZAM, RND, TABULATOR, TAB 
3969. DATA TANGENS, TAN, ARKUSZTANGENS , ATN 


Az előző részben a BASIC nyelv alapszavaira, ] víthetjük a programot. A kérdések és válaszok ] 4998 REM --- KARAKTERLANC-FUGGVENYEK -——— 
jeleire kérdeztünk oktatóprogramunkkal. Azt ! bekérése a 920-as sortól kezdődik. Az M brláeó peda zo joszeááagáásajiáni gáz ess ásás 


is tisztáztuk, hogy ez miért egyszerűbb. A kér- ! változó értéke a program által feltehető kér- Í 5206 REM -— ARITMETIKAI MŰVELETEK --- 


: : ; A ; 5919 DATA OSSZEADAS, 4, KIVONAS , — 
dés egy Út VEGSATÁÉT vagy JEEZ eMEKOSEb dések számát adja meg. 5929 DATA SZORZÁS, k, OSZTÁS, / 
amit ha szintaktikailag (formailag) helyesen A program használata közben is van lehe- ] €009 REM -— LOGIKAI MŰVELETEK -—- 


EZÉ 4 Á 6918 DATA TAGADAS, NOT , ES , AND , VAGY , OR 
tőség a válaszok módosítására. Ez bizonyára ! 7999 REM --- RELACIOJELEK -——- 


Ez követelmény egy program írásakor is. [ akkor jut eszünkbe, amikor nem tudunk vá- ! 7819 DATA EGYENLO, ,NEM EGYENLO, 6 

Az INPUT szóra többféleképpen kérdezhe- laszolni a kérdésre. Ez indokolja azt, hogy a ] 7929 DATA KISEBB EGYENLO, Cs,KISEBB,( 
FRGNÉMENET, ADATBEVÍTEL, ADAT- ( válaszok módosítására. csak úgy van lehető: fessen ee GVORB 53 
BEOLVASÁS, ADATBEVITEL BILLEN- 


e c ség, ha nem tudjuk, vagy nem adjuk meg a [ 29919 DATA 4.4 
TYŰZETRŐL, ADATBEOLVASÁS BIL- helyes választ. Az 530-as sorból hívjuk a 


LENTYŰZETRŐL, ADATKÉRÉS. A vá- VÁLASZ MÓDOSÍTÁSA szubrutint. A kér- 

Záésze 5 sug ör f vég Bi a í , ] dések véletlenszerű kiválasztása, mivel a kér- ( A feleletkiválasztásos válaszadással meg lehet 
sál kése : a k késd yi FÉÉPEKERET EK dések és a válaszok egy-egy vektorban vannak, ( könnyíteni a felhasználó helyzetét. A válasz 
ék tente nk a ke ] nagyon egyszerű. A véletlenszám, az L, egy- megfogalmazásával nem kell bajlódni, csak 
lyességének eldöntése nehéznek tűnik. Ezt a ( értelműen kijelöli az összetartozó kérdés és ! a helyes válasz sorszámát kell begépelnie 
problémát úgy oldjuk meg (azt is lehet mon- ] feleletet. A megtévesztő válaszokat a meglevő adatok- 
EEG teák) hogy a program alkal ból szedjük össze. Négy választ írunk ki 


mazóját is bevonjuk a program kialakításába. 
A program azt a választ fogadja majd el, amit amelyekből egy helyes. A helyes válasz mellé, 


gépelünk be, a program elfogadta válaszunkat. 


a felhasználó jónak tart. (Megalkotjuk a TÖ- E 3 zs a három helytelen választ a 960-as sortól 
KÉLETES TANÁRT, si bármilyéni válasz 242 bt közé e GGV AK GVŰKORUASB kezdődő szubrutinnal keressük ki. A szub- 
elfogad, csak jó legyen?!) 220 HG: INPUT"KERDESEK SZAMA"; N DRE ÉEKÁSE RT RERDES S KIVÁLASZTÁS 
Írjuk át az előző oktatóprogramunkat úgy, 448 ezi PÖGYÜRÓ d 2 jgágáslateínáe az szubrutinból történik. 
hogy az a BASIC alapszavak és jelek értel- ! 259 GOSUB 490-REM -3 KERDES KIVALASZTAS 
mére kérdezzen! Az előző programon csak 260 05UB 589:REM -2 VALASZ BEOLYASAS 499 REM --- KERDES KIVALASZTRS --- 
KIVÁLASZTÁS matat kötök ] d ége mm 2 mmass sé HINTI ELTNT S KÉMTES: 7 
inban utasí- 
tásban szereplő változók sorrendjét megfordít- ! 999 ten eea tes, KIVALASZTAS -—— 429 PRINT K$(L):GOSUB 960:V$zV$(L) 
juk. A K$ változón a BASIC alapszavakat és Í 420 PRINT K$CL):V$zV$(L) 449 RETURN 
jeleket, a V$ változóba azok jelentését olvas- pézszt szálas VALASZ BEOLVASASA ——— 
suk be a DATA-ból. Ez lenne a legegyszerűbb sál vár A lk HINESÉEGESá talá "] A FELELETKIVALASZTAS szubrutinban 
megoldás, de nem a legjobb. k 539 PRINT "HELYES VALASZ: 57951 G05UB 9 949:G0TO 5zol a helyes választ a szubrutin elején, a F$ vek- 
Nem sok értelme van ugyanis annak, hegy 340 Köze LINPUT "VALASZ": X$ i tor első elemébe helyezzük. Az $ változójú 
próbálgatásokra kényszerítsük a program al- / 329 ir jezus THEN GOSUB 700:RteR:GOTO 528 ciklussal a többi választ olvassuk be az F$ 
kalmazóját. Elég nehéz kitalálni, azt hogy a ! 578 RETURN vektorba. 
program készítője mit tartott helyes válasznak, ] €29 REM --— ERTEKELES -——- A 970-es sorral kezdődő ciklus azt vizsgál- 
É pi mi " ) 610 PRINT "A KERDESEK" INT(CH/NX199) ; : ga 
amikor a programot írta. A szakkönyvek 620 PRINT "4-AT TUDTAD MEGYALASZOLNI" ja, hogy a válaszok között kétszer ne fordul- 
tg Lt ág gége a ezel EKezl gt ze s s ép eze ALÉÁREE ÉN] hasson elő ugyanaz. Az Y változó értéke jelzi 
magas ar zénáál 1 tzsártásáljas fangati gragy tk atju 718 REINTCAMRNDCOD 1 e 5 övszggogzázb ba ey Y értéke 1, új választ 
okat. 900-as eresünk. A válaszokat ezek után még nem 
; jei ; 2 730 ON-R GOTO 749,758,768,770, A é kzágésttó 8 
zéy kezdődő szubrutinnal, amivel a. DATA- ! 2748 PRINT "HIBAS": R51 "RETURN, éa írhatjuk ki, mivel nagyon könnyen kitapasz- 
beolvassuk a kérdéseket és a válaszokat a Ar Hold A BEL VETEÉSÉGE SUE; talhatnánk, hogy mindig az első válasz a he- 
Ke eg geétterokba; ki is khatiuk azokat. 229 PRINT "Ez NEM SIKERULT" : RETURN lyes. Cseréljük ki a helyes választ, a w válasz- 
kérdést. Miután a DATA-ból minden kérdést ) 819 JzINTCtENDKO) ) Hetet ténnyel ölnetód áló, sátrt a, hélyes. Válosz 
deás 3d ő I z 820 IF JzJ1 THEN JEJ41:Jz(J AND 3) vénnyel állítottuk elő, ezért a helyes válasz 
a hozzátartozó vá asszal együtt átírtunk az bei je er ús8 ERI s irásaid mindig máshol lesz. Azt, hogy hová kerül, a 
indexes változókba, újabb kérdésekkel bő- Í 859 IF Jt2 THEN PRINT "UGYES VAGY" Z változó értéke őrzi. 
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969 REM -én FELELETKIVALASZTAS- 

962 PRINT" VALASZOK" 

964 F$(1)mV$(L) 

966 FOR Ss2 TO 4 

968 WzINTCMKRNDCO)41):F$(SIzY$(W) 
979 Yzg:FOR Kz1 TO $-1 

972 IF F$(K)sF$(S) THEN Yyzi 

974 NEXT 

976 IF Ym1 THEN 968 

978 NEXT 

989 WzINTC4kRND(O))41: Za 

982 T$zF$CW):F$EC(WIzF$C1):F$(1)zT$ 
984 FOR Szi TO 4 

986 PRINT 8". "F$C5) 

988 NEXT : RETURN 


Válaszként csak a helyes válasz sorszámát kell 
megadni. 


599 REM --—— VALASZ BEOLVASASA —-- 

519 v:g 

520 VzV41:Vz(Y AND 329:IF VC2B THEN 549 

539 PRINT "HELYES VALASZ: "V$:GOSUB 949:GOTO 570 
549 X$z"":INPUT "VALASZ" ;X 

559 IF XOZ THEN G0SUB 709:RizR:GOTO 529 

569 GOSUB 899 

570 RETURN 


Megelőzve az Olvasót, a program néhány 
, hiányosságára" hívnám fel a figyelmet. Ön- 
álló munkára alkalmas feladatoknak is tekint- 
hetjük ezeket. 


A képernyőn mindig csak egy kérdést lehes- 
sen látni! 

A kérdéseket áttekinthető formában íras- 
suk ki! 

A válaszokat mindig ugyanazon a helyen 
kérje a program! 

A program elejére írjunk magyarázó szöve- 
get, amivel tájékoztatjuk a felhasználót a 
program kezeléséről! 

A helyes válasz villogjon! 

A helyes és helytelen válaszokat különböző 
hangeffektusokkal jelezze a program! 


Az újonnan beírt válaszokat írassuk ki a 
programmal, hogy azokat beírhassuk a 
DATA-ba! 


A kérdéseket és válaszokat szalagról vagy 
lemezről olvassuk be, és végül azokat oda 
írassuk ki! 


A kérdés és a válasz különböző színben 
jelenjen meg! Lehet inverz is! 


Feladatainknak az értelme, hogy tanuljunk. 
Nem biztos, hogy egy oktatóprogramnak 
mindent kell tudnia. Ezt mindenki maga 
döntse el. Talán a szerkezete fontosabb. 

A kérdések kiegészítéséhez egy kis segítség. 

Egy új géptípus megismerésénél az első 
lépés az, hogy megnézzük, mit tud a BASIC-je. 
A kézikönyvek helyett jobb ha a gépet , val- 
latjuk". 

Általában a személyi számítógépek az utasí- 
tásszavakat és jeleket kódszámukkal azonosít- 
ják. Ezek az ún. token kódok. Az utasítás- 
sorokon belül az utasítások elválasztására 
használt kettőspont önmagában is szerepelhet 
egy sorban. 

Írjuk be a következő programot! 


HF e e 
Cd FAN 
5 ür 


. 
. 
. 
. 
, 
. 
293.§ 
254 : 
egstetai 

fize 


309 128:P-g 

319 IF PEEK(171294P)-258 THEN 338 
328 POKE 171294P,T:T-T4Íi 

338 P-Pt1i:IF T-(256 THEN 319 
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Azoknak a soroknak a sorszáma, amelyekben 
csak a kettőspontot írtuk, egyesével növekszik. 
A közbeeső, a listán nem szereplő sorokat is 
írjuk be! A programot egy meghatározott 
memóriacímtől kezdődően tárolja a rendszer. 
A HT a 17129-es, a C-64 a 2048-as címtől. 
(A C-64-en is használható ez a program, ha 
átírjuk a kezdőcímet.) A programmal azt 
vizsgáljuk, hogy hol helyezkednek el a kettős- 


pontok, azaz melyik rekesznek az értéke 58. 
Ide beírjuk T értékét, vagyis a token kódokat. 
Miután lefutott a program, vagy hibajelzéssel 
megáll, irassuk ki azt a LIST paranccsal! 

Ezt fogjuk látni a HT-n: 

6. a, b, c listák 
és ezt a C-64-en: 7. a, b listák 

Lehet bővíteni programunkat újabb kérdé- 
sekkel!  . 


6/a ábra 6/b ábra 6/c ábra 7/a ábra 
128 END 215 SGN 174 SYSTEM 128 END 
129 FOR 216 INT 175 LPRINT 129 FOR 
eg ess 217 ABS 176 DEF 130 NEXT 
132 CLS 218 FRE 177 POKE 131 DATA 
133 CMD 219 INP 178 PRINT 132 INPUTH 
134 RANDOM 229 POS 179 CONT 133 INPUT 
135 NEXT 221 SOR 188 LIST 134 DIM 
136 DATA jet 181 LLIST 135 READ 
137 INPUT j 222 RND 1982 DELETE 136 LET 
138 DIM 223 LOG 183 AUTO 137 GOTO 
139 READ 224 EXP 184 CLEAR 138 RUN 
érd zt 225 COS 185 CLOAD 139 IF 
4 AKÓ 226 SIN 196 CSAVE 149 RESTORE 
143 IF 227 TÁN 187 NEW 141 GOSUB 
144 RESTORE 228 ATN 188 TAB( 142 RETURN 
145 G0OSU8B 229 PEEK 189 TO 143 REM 
146 RETURN 1998 FN 144 STOP 
147 REN tá eg 191 USING 145 ON 
148 LsE. 232 CVD fája árra 
158 TRON 233. EOF ey 
151 TROFF 194 ERL 148 SAVE 
152 DEFSTR 234 LOC 195 ERR 149 VERIFY 
153 DEFINT 235 LOF 196 STRING$ 159 DEF 
154 DEFSNG 234 MKI$ 197 INSTR 151 POKE 
155 DEFOBL 237 MKS$ 198 POINT 152 PRINT 
157 EDIT 238 MKD$ 199 TIME$ 153 PRINT 
158- ERROR 239 CINT 24 A NGEVÉ éa szak 
159. RESURE ta tzet 292 THEN 156 CLR 
161 ON geg 283 NOT 157 CMD 
162 OPEN 242 FIX 294 STEP 158 SS 
163 FIELD 243 LEN 295 4 159 OPEN 
164 GET 244 STR$ 206 - 169 CLOSE 
KELTÉL EGE 245 VAL 287 x 161 GET 
167 LORD 246 ASC 208 / 162 NEM 
168 MERGE 247 CHR$ 289 C 163 TABC 
169 NAME 248 LEFT$ 210 AND 164 TO 
178 KILL 249 RIGHT$ 211 OR 165 FN 
172 RSET 250 MID$ ka besz sek 
173 SAVE 251 ID$ 214 168.NOT 
7/b ábra 
169 STEP E a Hktbn-ap § 

hp 
érik Tisztelt vásárlónk! 
172 § 
173 / COMMODORE, IBM PC/XT, IBM 
174 1 PC/AT tizenhat terminálos mikroszámító - 
175 AND pet kíván vásárolni vagy lízingelni? 
176 OR Számítástechnikai adathordozókra, kel- 
LABA lékekre, alkatrészekre, perifériákra, bő- 
179 c vítésekre, irodaügyviteli eszközökre van 
189 3SGN szüksége? 
181 INT Keresse fel bizalommal a Műszaki Árut 
182 ABS Értékesítő Vállalat és az , 5G" Szá- 
3 ö5a es mítástechnikai Szolgáltató Kisszö- 
vésd dos vetkezet új, november 18-án nyíló 
186 SOR számítástechnikai szakboltját. 
187 RND Címünk: É 
188 LOG Budapest XIII., Victor Hugo u. 33. 
HA aszt Nyitva tartás : 
191 SIN Hétfőtől szerdáig és pénteken:  9-16h 
192 TAN Csütörtökön 11—-18h 
193 ATN Felvilágosítás, vevőszolgálat a 491-362 
194 PEEK telefonszámon. 
195 LEN Hatékony munkához, világszínvonalon 
196 STR$ álló eszközökkel, figyel kiszolgálás- 
197 VAL eszközökkel, figyelmes kiszolgálás 
198 ASC sal, szaktanácsadással és speciális szol- 
199 CHR$ gáltatásokkal várjuk Önt is, hogy mi- 
299 LEFT$ előbb partnereink körében üdvözölhes- 
201 RIGHTS sük. 
292 MID$ 
293 60 
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Programváltozatok 


egy témára 
(IX. rész) 


e Írjunk programot, ami tippet ad egy totó- 
szelvény egy hasábjának kitöltéséhez! 

A programok magyarázata helyett most 
csak azt írjuk le, hogy mi az új a változatban, 
mire érdemes figyelni, mit jegyezzünk meg. 
A kérdésekkel és feladatokkal az önálló tanu- 
lást szeretnénk segíteni. 


REM - ——— TOTÓ se 

FOR Is1 TŰ 16 
TS34RND(H3): TSINT(TI 

IF Tsg THEN FRINT " A"; 
IF Tsi THEN PRINT " 1"; 
IF TsZ THEM FRINT " 2"; 
NEAT I 
REM A/1.1.LISTA 
READY. 


A FOR/NEXT ciklus 16 tippet ad. A 
3 RND(0) kifejezés értéke 0 és 3 közé esik. 
Az INT függvény a szám egész részét adja, 
tehát T értéke 0, 1 vagy 2 lesz. Az IF utasí- 
tással eldöntjük, hogy mit kell kiírnia a prog- 
ramnak. 


18.REM 55 TOTO ——- 

26 Izi 

39 TsS3ÁRND(G): TnINT(T) 

49 IF Ts:0 THEN PRINT " X ";:GOTO 68 
50 PRINT Ti 

59 IsI$1:IF ICsi6 THEN 39 

70 : 
39 REM 


TERDY 


A/1.2.LISTA 


Sz IF utasítással valósítottuk meg a ciklust. 
Miért kell az X után még egy szóközkarak- 
ert is kiírni? 


ő) 


19 REM 5:-- TOTO -e- 

29 FOR Isi TO 16 

39 TaRNDCB) 

49 IF TC1/3 THEN PRINT " X"; 

59 IF T21/3 AND TC2/3 THEN PRINT " 1"; 
68 IF T32/3 THEN PRINT " 2"; 

79 NEXT 

eg : 


99 REM A/1.3. LISTA 


RERDY, 

T értéke 0 és 1 közé esik. Az IF utasításokka! 

azt vizsgáljuk, hogy melyik harmadba. 
Oldjuk meg a feladatot az AND logikai 

művelet nélkül! 


19 REM S TŰTŰ ses 

29 FOR Izi TO 16 

39 T5RND(g) 

40 IF TC1/3 THEN T$z" X":BÜTO 70 
59 IF TC2/3 THEN T$z" 1":GOTO 70 


T$a" e 
PRINT T$; 
NEX T 


199 REM A/1.4. LISTA 


READY. 


A ciklusváltozó értéke akkor változik, ha a 
végrehajtás során eljutunk a NEXT utasí- 
tásig. 

A ciklusmagban változtathatjuk a ciklus- 
változó értékét? 


REM -—-- TÖTO se 
FOR Iz1 TŰ 16 
TsINT(S4RND(G9941 
ON T GOTO 58, 69.79 
PRINT " 4"; :GOTO 998 
FRINT " 1"5:GOTO 998 
PRINT" 2" 

NEXT 


119 REM 
READY. 


HAZ1.53.LISTR 


T értéke 1, 2 vagy 3 lehet. 


REM ss TOTÓ e 
FOR Isi TU 16 
TsINTC3ARND(G341 
IF Ts1 THEN G0S5UB 
IF Ts2 THEN G0SUB 
IF Ts3 THEN G6031E 
NEAT 

89 END 

199 PRIHT " 1"; :RETURN 
118 PRINT " 2"; :RETURN 
129 PRINT " A" ;:RETURN 


1939 : 
149 REM  HA/1.6.LISTA 


199 
119 
128 


T értéke most is 1, 2 vagy 8 lehet. 
Oldjuk meg a feladatot egy szubrutinnal! 


AN GERR eéne FETT ee 

zó FÜR I51 TD 16 

3a TsINTC34RND(G)t1/ 

49 ON T GOSUJE 199.114. 129 
99 NEXT 

ag EHD 

198 FRIMT " 1"5:RETURN 
119 FRINT " 2"; :RETUKHM 


129 FRINT " A"; "RETURN 
138 : 
148 REM A/1.7.LISTHA 


Miért kell az END utasítás? 


232 a Jölktszéztzkálű £ 9 HA 5 ÖR ezta 
Ház" ge" § Bász " 1 09. C$z" 
FOR Is1 TO 16 
T5INTC34RMDK 6) 

IF T5g THEN FRINT As; 
IF Ts1 THEN FKINT B$; 
IF Ts2Z THEN FRINT Cs; 
NEXT I 


99 : 
199 REM R/1.8.LISTHR 


Hogyan lehetne , kockadobó" programot ké- 
szíteni? 


2" 


18 REM sss TETŐ ss 

29 A$COIa" XK":RSC1)m" 1":A$(2)z" 
39 FOR Is1 TO 16 

49 TmINTCSKRND(CG)) 

59 PRINT A$C(T9; 

8g HANT (3 


99 
109 REM 
READY. 


2" 


R/1.9.LISTA 


Indexes változókkal egyszerűbb a megoldás. 
Vizsgálatra nincs szükség. T értéke megadja 
a kiírandó elem indexét. 


REM  --- TOTO --- 

DATA " e" fi " 1 " fi " e" 

FOR Izi TŰ 16 

TE34RNDK(8) 

RESTÜRE 

FOR JO TO T:READ A$:HNEXT 
PRINT A$; 

NEXT I 


gy : 
189 REM 
READY, 


A/1.19.LISTA 
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Miért tettük idézőjelek közé a DATA-ban 
szereplő tippeket? 
Mi a szerepe a RESTORE utasításnak ? 


18 REM sze TÖTÚ ser 

20 T$áz"1A2" 

39 FÜR I51 TO 16 

49. TsINTC34RNDCO) 941 

79 PRINT " ";MIDES(T$.T.19; 
89 MERT I 

99 

188 "REM A/1.11.LISTH 
READY. 


Mi történik, ha nem használjuk az INT függ- 
vényt? 


19 REM 5 TÖTO 
29 T$a"14X2" 
39 FOR Is1 TO 16 
49 TaINTC3XRNDCÁG)2$1:PRINT " "; 
59 IF Ts1 THEN FRINT LEFT$(T$.1)9; 
64 IF Ts2 THEN PRINT MID$S(T$.2.19; 
70 IF Ts3 THEN PRINT RIGHT$(T$., 12; 
89 NEXT 

1 


199 REM 
READY. 


A/1.12.LISTA 


Helyezzük a szóközkaraktereket a T$ válto- 
zóba! 


10. BEM sss TŰTÚ veve 

29 FÜR Is1i TO 16 

39 Ts5INT(3S4RND(H1 2 

49 T$zZzSTR$(T) 

59 IF T$ézm" 9" THEN T$z" A" 
69 PRINT T$; 

79 NEXT 

99 : 

99 REM R/1.13.LISTA 
READY . 


Miért kell a szóközkarakter a 0 elé? 


19 REM — --- TOTO --- 

20 FOR Iz1 TO 16 

39 TaINTCSKRNDKCY)) 

49 Kz-S384(TESB)-49k(T51)-5OXKTA2Z) 
59 PRINT " "CHR$(KI; 

69 NEXT 

7a : 
89 REM 


RERDY. 


A/1.14.LISTA 


Hogyan kell megadni a relációkat, ha nem 
használjuk az INT függvényt? 

e A gyakorlat az, hogy egy telitalálatos szel- 
vényen általában sokkal több az 1-es mint a 
2-es. Vegyük ezt figyelembe! Legyen az esély: 


5096 1-es, 3074 x, és 2074 2-es! 


19 REM a] 

20 REM AZ ESELY:50/-1 / 394-K / 204-2 
39 FOR Jzx1 TO 16 

48 TsRNDCg) 

50 IF TCG.5 THEN PRINT " 1"; 

609.IF T2.5 AND TC.§ THEN PRINT " X"; 
70 IF T3.8 THEN PRINT " 2"; 


me. — e — 


89 HÉNT 

99 

199 REM A/2. 1.LISTR 

READY. 

A (0; 1) intervallumot 5:3:2 arányban be- 


08 ÖTLET 85 e December 5. bh) 


osztjuk, és azt vizsgáljuk, hogy a véletlen- 
szám hová esik. 

Változtassunk az esélyeken! Próbáljuk meg 
ezt a következő programokkal is! 


19 REM OT. 

29 REM AZ ESELY:50/-1 / 30/-X / 204-2 
39 FOR Js1i TO 16 

49 TsINTC194RNDCO)9t1 

59 ON T GOTO 79.79.,79,88,89 

69 PRINT " 1";:GOTO 908 

78 PRINT " X";:GOTO 99 

89 PRINT " 2"; 

98 NEXT 


119 REM 
READY. 


E/2.2.LISTR 


Mi történik, ha T értéke nagyobb mint 5? 


19 REM OT. 

29 REM AZ ESELY:50/-1 / 39/-X / 204-2 
39 FOR Jz1 TO 16 

49 TsINTCIOKRND(COBD)t1 

59 ON T GOSUB 99.,98.99, 199. 198 

60 IF T25 THEN PRINT " 1"; 

79 NEXT 

89 END 

99 PRINT " X";:RETURN 

1099 PRINT " 2"; :RETURN 


119 : 
129 REM A/2.3.LISTR 


READY. 


Írassuk -ki az 1-est is szubrutinnal! 


19 REM szer TÖTO se 

29 REM AZ ESELY:50/4-1 / 3904-K / 20/-2 
39 A$a" 1": B$én" X":Css" e" 

49 FOR Jz1 TO 16 

59 TsINTCIOXRND(9))t1 

69 IF TCs5 THEN T$-fA$ 

79 IF T25 AND TCs§ THEN T$5B$ 

e IF T28 THEN T$zC$ 

o 


PRINT T$; 
199 NEXT 
119 : 
129 REM A/2.4.LISTR 
READY. 
Szükség van az INT függvényre? 
19 REM em TOTO —-- 


29 REM AZ ESELY:50/-1 / 3974-X / 294/-2 

39 A$C1)a"1":REC2IZ"I":A$(ZIZN I 

49 A$C4)a"1":A$CSImTI":A$C(6YM"X" : A$CT) ax 
59 AS(BIzZ"K": A$CIIZ"2Z":A$CIO)z"2" 

69 FOR Ja! TO 16 

79 TsINTCIOXWRNDCO)9t1 


89 PRINT " ";A$(TI; 

99 NEXT 

og : 

119 REM A/2.5.LISTA 
RERDY. 


Kell az INT függvény? 


19 REM enáaz: TEJ FEJ see 

209 REM AZ ESELY:50/-1 / 39/-K / 209/-2 
39 FOR Iz1 TO 19:RERD A$C(I):NEXT 

49 FOR Jz1 TO 16 

59 TsINTCIGKRND(OI)t1 

69 PRINT " ";A$(T); 


78 NEXT 

ro DATA 1.1.1.1.1.X.X.X.2.2 
199 REM A/2.6.LISTA 
READY. 


T értéke csak egész lehet? 


19 REM azzá L" Li le 

20 REM FZ ESELY:594-1 / 304-X / 20/-2 
39 A$z"":FOR Izi TŰ 5:A$zA$t"1":NEXT 
49 FOR Iz6 TO 8:A$zA$H"X" : NEXT 

59 FOR I-9 TO 19:A$5A$4"2":NEXT 

69 FOR Jz1i TO 16 

70 TsINTCIOXRNDCR) 941 

89 PRINT " ";MID$(A$.T.12; 

98 rő 


119 REM 
READY. 


A/2.7.LISTA 


Hogyan oldanánk meg a feladatot, ha az esély : 
4097 1-es, 3594 x, 2594 2-es lenne? 


19 REM vevé TÖTŐ —és 
28 Réz"1111148A52ZZ" 


39 FÜR Isi TO 16 

49 TsINT(LEN(R$9$4RND(B25t1 
59 PRINT " "MID$(A$.T.1?; 
69 NEXT 

79 : 

39 REM R/2Z.3.LISTA 
RERDY, 


Mi a LEN függvény szerepe? 
e Kérje a program az esélyeket! A százaléko- 
san megadott esély csak egész lehet. 


19 REM sm  TOTO "ee 
29 REM AZ ESELYZ:A -1 / B-X/C -2 
39 INPUT "ESELY-1";A 
40 INPUT "ESELY-K";B 
50 FOR Iz! TO 16 
69 TsRNDCO) 

79 IF TCsA/109 THEN PRINT " 1"; 

89 IF TJA/1909 AND TCz(A4$B2J/199 THEN PRINT " X" 
99 IF TICAHBI/Z1OO THEN PRINT " 2"; 

109 NEXT 


A/3. 1.LISTA 


A és B értéke tetszőleges nagy lehet? 


19 REM pzegazálő 4. Nesz 

20 REM AZ ESELY:A -1 / B -X/C -2 
39 DIM A$C10g) 

49 INPUT "ESELY 1";A:IF FDIgG THEN 40 
59 INPUT "AZ ESELY X"5;B:IF AtBJ1OO THEN 5£ 
69 IF Azg THEN 80 

0 FOR Is1 TO A:A$CI)m"1":NEXT 

89 IF Bzg THEN 199 

99 FOR I5sAt$t1 TO A$B:A$CI)m"X":NEXT 

IF AtBzsiígg THEN 129 

119 FOR IsAtBt1 TO 199:A$CI)m"2" : NEXT 
129 FOR Ja! TO 16 

139 TsINTCIOOKRNDCO)) 41 

149 PRINT " ";A$CTI; 

159 NEXT 


A/3.2.LISTA 


Miért van szükség az IF utasításokra? 
Oldjuk meg a feladatot az A/2.7 programbar 
alkalmazott módszerrel is! 


18 REM szántás. TETŰ ame 
29 REM AZ ESELY:A -1 / B -X/C -2 
DIM A$C109) 

INPUT "ESELY 1";A:IF AD1g9g THEN 40 
INPUT "AZ ESELY X";B:IF At$tBJ1OO THEN 5 
Is1 

IF IDA THEN 89 
A$CIdm"1":I151$1:GOTO 609 

IF IDA4B THEN 199 
A$CIda"X":Is5I$1:GOTO 89 

IF ID199 THEN 129 
ASCI)z"2":ImI$1:GOTO 10989 
129 FOR Jzs1i TO 16 
139 TsINTCIOOWRND(CG)) 41 


$85045958 


56 
5 


149 PRINT " ";A$CT2; 

159 NEXT 

160 : 

179 REM A/3.3.LISTA 


READY. 
Vizsgáljuk meg, hogy A és B értéke egész-e 
( Folytatjuk 
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Prog ramváltozatok 


egy témára 


jorozatunk eddigi fejezeteiben általában rövi- 
iebb programokon keresztül igyekeztünk be- 
nutatni a Spectrum lehetőségeit. Megpróbál- 
unk rámutatni, hogy egy-egy feladatot több- 
éleképpen is meg lehet közelíteni a BASIC 
segítségével. Ezek a programok általában 
sak egy. kisebb részfeladatot tudtak megol- 
lani. Azt hisszük, hogy minden géptulajdonos 
ilma egy hosszabb, kompakt program elké- 
zítése. A mi célunk is az, hogy azok, akik 
relünk együtt végigvették a sorozat fejezeteit, 
jnállóan, bonyolultabb, több problémát meg- 
"dó programokat tudjanak könnyen, gyor- 
an és jól megírni. 

Mindezek szem előtt tartásával, valamint 
isszefoglalásként, ismétlésként s remélhetően 
lőrelépésként nézzünk végig egy nagyobb 
rogram elkészültét a témaválasztástól a fut- 
atásig. Vegyünk egy mély lélegzetet s kezd- 
ünk bele! 

Gondoljuk végig, hogy milyen problémá- 
at kell leküzdenünk addig, míg a progra- 
aunknak azt nem mondjuk, hogy , RUN": 

- témaválasztás, a feladat megfogalmazása, 
égiggondolása, 

-— a megoldás menetének meghatározása 
alamilyen eszköz, például folyamatábra se- 
ítségével, 

- programozás, hibakeresés, 

— futtatás. A A 

Általában a TÉMAVÁLASZTÁS okozza 
legkevesebb gondot, hiszen mindannyiunk- 
ak vannak olyan ötletei, amelyeket szeret- 
énk számítógépen megvalósítani. 

Ha végiggondoljuk, hogy a számítógép 
rilyen előnyökkel rendelkezik pl. az emberrel 
remben, akkor talán ez segít azoknak a fel- 
latoknak a kiválasztásában, amelyekre a 
ámítógép kiválóan megfelel. Néhány ilyen 
őnye a számítógépnek : 

- számításokban gyors és pontos, 

- nem fáradékony. 

- nem részrehajló. 

Mindezekkel ellentétben nagyon buta, csak 
:t tudja végrehajtani, amit az ember meg- 
utatott neki, azaz beprogramozott. 
Válasszunk mi is témát: legyén ez egy 


D 


és Sinclair Spectrumra 


olyan program, melynek segítségével letesz- 
telhetjük ismerőseink, barátaink, családtag- 
jaink felkészültségét, különböző témakörök- 
ből. Azaz a program feltesz egy kérdést az 
adott témakörből, megad rá 3 lehetséges vá- 
laszt, s a tesztelt egyénnek ki kell választania 
a szerinte helyes választ. A témakörök száma 
korlátlan: KRESZ, matematika, fizika, 
biológia, művészet, sport... 

Ezek szerint legyen a program címe: 
Kérdez - felelj! 

Most el kell döntenünk, mit is kell tudnia 
programunknak. 

Az biztos, hogy egy kérdést fel kell tennie, 
arra három lehetséges választ megadnia, 
várni a felhasználó válaszára, majd kiérté- 
kelnie azt. 

Ahhoz, hogy kérdést tudjon feltenni, 
a programnak ismernie kell a kérdéseket, va- 
lamint a válaszokat, s a helyes válaszokat 
a kiértékeléshez. 

Legyen a program olyan, hogy a kérdések 
témaköre könnyen változtatható legyen, ezért 
kell egy olyan rész a programban, mely létre- 
hozza ezt az adattömböt. 

Ahhoz, hogy a témakörök könnyen cserél- 
hetők legyenek, szükség van a létrehozott 
adattömbök elmentésére és betöltésére. 

Oktatási szempontból hasznos lehet, ha 
a felhasználó a teszt befejezése után újra 
végignézheti a kérdéseket, de most már csak 
a helyes válaszok kíséretében. A végén pedig 
megtudja, hogy milyen sikerrel járt. 

Programunk tehát a következő fő részek ből 
fog állni: 

1. LDOAD adattömb 

2. SAVE adattömb 

3. Uj adattömb készítése 

4. TESZT 

5. Kérdések, s a helyes válaszok 

Immár van egy témánk, körvonalaztuk, 
hogy milyen igényünk van a programmal 
szemben, s hogy milyen feladatokat kell meg- 
valósítanunk. Mindezek ismeretében tovább 
léphetünk, s pontosíthatjuk elképzelésünket. 

A FOLYAMATÁBRÁK grafikusan ábrá- 
zolják a program lépéseit. Különböző ido- 


mokat tartalmaznak (1. ábra), amelyek 
különféle tevékenységeket jelölnek. Az ido- 
mok nyilakkal vannak összekötve, ezek a vég- 
rehajtási sorrendet mutatják. Egy feladatra 
akár több folyamatábra is készülhet, mivel 
ugyanazt a feladatot többféleképpen is meg- 
oldhatjuk. 3xk 1. ábra 3 

Rajzoljuk meg a program fő folyamatábrá- 
ját: xx 2. ábra x 

A program fő része nagyon rövidnek és 
egyszerűnek tűnik. Kövessük a folyamat- 
ábrát! A program indítása után a menü kerül 
ki a képernyőre. A program megkérdezi a fel- 
használót, hogy melyik alprogramot kívánja 
aktivizálni. A kívánt. alprogram szubrutin- 
ként fut le. 

Természetesen a folyamatábránkat 
tovább kell bontanunk, részleteznünk. 

Mielőtt az alprogramok folyamatábráira 
térnénk, nézzük meg, hogy az adattömbjeink 
hogyan is néznek majd ki. 

Célszerűen az adatainkat tömbökben fog- 
juk tárolni. A Spectrumon a tömböket hasz- 
nálatuk előtt dimenzionálni kell. Például 
a DIM a(6) egy olyan a nevű tömböt jelent, 
melynek 6 eleme van, s az elemek valós szá- 
mok. 


még 


A DIM a(3, 6) tömbnek 3x6 — 18 eleme 
van, és így néz ki: 
a(1, 1) a(l, 2) a(1, 3) a(1, 4) a(1, 5) a(iI, 6) 
a(2, 1) a(2, 2) a(2, 3) a(2, 4) at2, 5) at2, 6) 
a(3, 1) a(3, 2) a(3, 3) a(3, 4) a(3, 5) a(3, 6) 
Ezt kétdimenziós tömbnek nevezzük. 
Ha karakterláncokat akarunk tömbökben 


tárolni, akkor DIM a$(6)-ot kell írnunk. Így 
egy 6 karakterből álló karakterláncot defi- 
niáltunk. A Spectrum max. 255 karakterből 
álló karakterláncot engedélyez. A DIM 
a$(3, 6) kétdimenziós tömb 3 db max. 6 ka- 
rakterből álló kifejezést jelent. 
Gépeljük be a következőt: 

DIM a$(255, 255). Mivel ez már a gép szá- 
mára 255 x255—65535 byte lefoglalását je- 
lentené, de a szabad memóriaterület a Spect- 


rumban ennél jóval kevesebb, ezért , Out of 
memory" hibaüzenettel tér vissza. 
Programunkban a következő tömbökre 


lesz szükség: 
DIM A$wX, 64): 
DIM B$XX, 60): 
DIM C$X, 60): 
DIM D$VX, 60): 


kérdések tömbje 
1. válasz tömbje 
2. válasz tömbje 
3. válasz tömbje 


DIM H(X): jó válaszokat tartalma - 
zó tömb 
DIM E(X): válaszok tömbje 


ahol X a kérdések száma. (A kész progra- 
munkban ez 150 körül lesz.) 

Az A$1) fogja tartalmazni az első kérdé- 
sünket, az A$(2) a másodikat..., kérdésen- 
ként max. 64 karakterben. A B$(N), C$(N), 
D$(N) az N. kérdésre adott három válasz- 
lehetőséget tartalmazza. A H(N) az N. kérdés 
helyes válaszának számát tartalmazza. Ha 
például az 5. kérdésre a 3. válasz a helyes, 
akkor H(5)—3. Az E(X) tömbben tároljuk 
az adott kérdésre a felhasználó által adott 
válasz számát a további kiértékelésre. 

Térjünk vissza a folyamatábrákhoz. A fő 
folyamatábránk 5 alprogramot, szubrutint 
fog aktivizálni. Készítsük most el ezek folya- 
matábráit. Kezdjük tehát a két legegyszerűbb 
alprogrammal, a LOAD-dal és a SAVE-vel. 

LOAD: x 3. ábra x 

Ez az alprogram tölti be az előzőleg már 
létrehozott adattömböket: A$( ), B$( ), CS( ), 
D$( ), H( ), XC). Az X(1) egyelemű tömb, 
mely azt tartalmazza, hogy hány elemből áll- 
nak a tömbjeink. Erre az adatra több helyen 
szükségünk lesz majd. 

Vezessük be a következőket: 

I változó értéke 0, ha nincs adattömb be- 
töltve ill. létrehozva: 

O változó értéke 0, ha a tesztet még nem 
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töltöttük ki. Ellenkező esetben mindkét vál- 
assz tozó ] értéket kap. 
SAVE: 3 4. ábra x 
—— Ennek az alprogramnak az a feladata, hogy 

elmentse a létrehozott adattömböket. Az első 
döntés arra. vonatkozik, vajon van-e mit 
elmenteni (I — 1 ?), ha nincs, akkor visszatér 
a főciklusba. Ellenkező esetben elmenti az 
A$( ), B$( ), C$( ), D$( ), H( ), X( ) tömböket 
s visszatér, 

Az adatmező elkészítése a következőkép- 
pen történhet: xx 5. ábra 3 

Elsőként a kérdések számát kell megad- 
nunk (X). Ciklust szervezünk N — 1-től X-ig. 
A cikluson belül bekérdezzük a kérdést, 
a három lehetséges választ, a helyes válasz 
számát s ezeket elhelyezzük a megfelelő tömb- 
ben. Ezek megadása után az I — 1 érték- 
adással tudatjuk a program többi részével az 
adattömb létét. Végezetül visszatérünk a fő- 
ciklusba. 

Most jöjjön az a rész, ami magát a TESZT- 
et valósítja meg. x 6. ábra x 

Az első vizsgálat arra vonatkozik, hogy 


1. ábra 
SZAMITAS, 
FELDOLGOZAS 
FELTÉTEL 


SZERINTI 
ELAGAZAS 


ALPROGRAM 
(SZUBRUTIN) 
VEGREHAJTÁSA 


PROGRAM 
KEZDET ES VEG 


INPUT : 
KERDES — A $(N) 
4.NALASZ 2 B $ (n) 


2. VALASZ PC $ (N) 
3 VALASZ 2D$(N) 
Jó VALASZ 2 H(N) 


ÖTLET 85 e December 12. 


töltöttünk-e be, vagy készítettünk-e adat- 
tömböt. Ha nem (I — 0), akkor vissza a fő- 
ciklusba, hiszen akkor nincs mit kérdezni. 
Ellenkező esetben N — 1-től X-ig egyesével 
növekedő ciklust szervezünk, melyben a kö- 
vetkező események fordulnak elő: 

- meghívjuk a KÉP szubrutint, 
a TESZT formátumát adja 

— kiíratjuk a képernyőre az N. kérdést, 
s a lehetséges válaszokat 

— rákérdezünk a válaszra, s azt letároljuk az 
E(N) tömbben 

— kiíratjuk a képernyőre a választés a helyes 
válasz számát 

- a TOVÁBB nevű szubrutin hívása, mely 
vár egy billentyű lenyomására 

- képernyő törlése 

A TESZT végén az O - 1 értékadás tör- 
ténik. 

A menü 5-ös pontjának hatására újra 
végignézhetjük a kérdéseket a helyes vála- 
szokka! együtt, ha O — 1, azaz már futott 
a TESZT. A szubrutin folyamatábrája na- 
gyon hasonló az előzőhöz, kiegészítve a he- 


mely 


2. ábra 
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DIGITAL 


lyes válasz kiválasztásának és kiíratásánal 
részléteivel. Megszámoljuk, majd kiíratjul 
a helyesen megadott válaszok számát. Végü 
egy százalékos kiértékelést is elvégzünk 
xx 7. ábra xk 

Ha már lefuttattuk a TESZT alprogramot 
egyesével — növekedő ciklust  szervezüni 
N — 1-től X-ig, melyben a következő esemé 
nyek hajtódnak végre: 

- N. kérdés kiíratása 

- a helyes válasz H(N) értékétől függőei 
(1, 2, 3) kiíratjuk a választ. (Csak a helyeset! 

- kiíratjuk a TESZT-ben az N. kérdésr: 
adott válasz E(N), és a helyes válasz H(N 
számát : 

- a TOVÁBB szubrutin hívása. 

A következő ciklusban a K változóbai 
számláljuk a helyes válaszokat. A J változ: 
az eredmény százalékos értékét kapja. Végü 
kiíratjuk az eredményt, s várunk egy billentyi 
megnyomására, melynek hatására vissza 
térünk a főciklusba. 

A folyamatábrák a feladat egy lehetsége 
megoldását mutatják. 


4. ábra 


KERDES 
A. VALAS2 
2.VAÁLASL 
2. VÁLAS2 


KÉRDÉS 
A. VALASZ 
2. VALASZ 
3.VALASL 


xDD 


SAVE : 


TÓ VÁLASZ 
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E CST MEZ b Sz af sZ OSREKEEK SE Te SETA 


SZAR ZASETT 


SZÁMÍTÁSTECHNIKAI SZAKÜZLET 
ÚJDONSÁGAI Spectrum számítógépekhez 


Különböző SZÁMÍTÓGÉPEK, játékprogramok, 
speciális kábelek, alkatrészek, integrált áramkörök, tartozékok 


kaphatók. 
1. Intelligens joystick interface 1900-Ft. G 
2. Epromégető és ellenőrző 4900 Ft 
3. Külső programtár T900FeEST 
4. Univerzális printer interface 4500 Ft / 
5. Fényceruza 19800 Ft-8 
6. 48 K-ra bővítés 2800 Ft 

VÉTEL, ELADÁS Budapest 1026 Szilágyi E. fasor 35. 

Telefon: 156-231 j 

DIGITAL. 


— 6. ábra ( 7. ábra 


n K:0 
a A NI 4 
PRINT N.KERDES 


8. 


rertalezt8 


8 PRINT X 
3 


PRINT: KERDES (N) 
4. VÁLASZ (N) 
2. VALASZ (N) 
32. VÁLASZ (N) 


PRINT  EFÚ(N) 
H (N) 


Típusváltás miatt eladjuk vagy 
leasingeljük igen kedvező feltéte- 
lekkel MULTICENTER számítógé- 
pünket az alábbi konfigurációban: 
256 kB központi egység 2 db 20 
MB keménylemezes tároló, 2 db 
floppy egység, 2 db munkahely 
64 kB memóriával, 1! db mágnes- 
szalagegység, egy EPSON 105 tí- 
pusú és egy TMT 120 típusú nyom- 
tatóval. A gép tovább bővíthető 8 
munkahelyig. 


Érdeklődni lehet MÜSZI Számítás- 
technikai Főosztály Bp. II., Vörös 
Hadsereg útja 95. Telefon: 858- 


579. B 
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A 23. számú Állami 
Epítőipari Vállalat 


felvesz megfelelő képzettséggel 
rendelkező 
bérelszámolót, 
villanyszerelési anyagbeszerzőt, 
vízszerelvényraktárba raktárve- 
zetőt, 


műszaki előkészítőt főépítésve- 
zetőségre. 


Érdeklődni lehet: 

a személyzeti és oktatási 
osztályon 

Telefon: 328-320. 

a bérelszámolási osztáiyon 
Telefon: 120-272. 


